/* Monte Carlo study of one sample from a Normal population */ 
/* Macro Variables used to initialize the simulation */

libname midterm 'c:\Stat6250mt';

%let n1 = 300;
%let mean1 = .75;
%let stdev1 = 3;
%let dist1 ='normal';

data midterm.alldata01;
	do i=1 to &n1; drop i;
		x = rand(&dist1, &mean1, &stdev1);
		samp = 'A';
		output midterm.alldata01;
	end;
run;	

proc print data=midterm.alldata01;
run;

proc univariate data=midterm.alldata01;
	by samp;
run;

proc boxplot data=midterm.alldata01;
	plot x*samp / boxstyle=schematic boxwidth=15;
run;