Handout06 Stat3900/4950

The following program from page 142 of Cody & Smith shows how to use uniform
random number generation to randomize subjects into two different randomly 
selected groups.

------------------------------------------------------------------------------

DM 'LOG;CLEAR;OUT;CLEAR';
OPTIONS PAGENO = 1 LINESIZE = 74 PAGESIZE = 64;

proc format;
	value grpfmt 0='control' 1='treatment';
run;

data random;
	input subj name $20.;
	group=ranuni(0);

datalines;
1 cody
2 smith
3 helm
4 gregory
;

proc rank data=random groups=2 out=split;
	var group;
run;

proc sort data=split;
	by name;
run;

proc print data=split;
	title 'Subject Group Assignments';
	id name;
	var subj group;
	format group grpfmt.;
run;

------------------------------------------------------------------------------