options ls=76 ps=55 nodate nonumber;
title 'Repeated Measures ANOVA -- Minoxodil Study';

data two;
do trt='M', 'P';
do subject=1 to 4;
do week=0 to 32 by 8;
input hairwt @@;
output;
end; end; end;
cards;
216 290 340 275 294 130 146 206 220 209 
206 193 218 223 226 106 130 144 150 173 
142 154 145 160 148 178 161 170 194 169 
189 219 197 218 203 180 185 223 201 182 
;
run;

proc print;
run;

proc glm;
where week > 0;
class trt subject week;
model hairwt = trt subject(trt) week trt*week;
test h=trt e=subject(trt);
title2 'Univariate (Split Plot) Analysis';
run;

proc means mean;
where week>0;
class trt subject;
var hairwt;
run;

quit;