options nodate nonumber ps=50 ls=76;

title 'Repeated Measures ANOVA (Multivariate Approach)';
title2 'Kuehl -- Example 15.2'; 

data multi;
do trt='CONTROL', '0.24', '0.26', '0.28';
do container=1 to 3;
input evol1 evol2 evol3 evol4 @@;
output;
end; end;
cards;
0.22 0.56 0.66 0.89 0.68 0.91 1.06 0.80 0.68 0.45 0.72 0.89
2.53 2.70 2.10 1.50 2.59 1.43 1.35 0.74 0.56 1.37 1.87 1.21
0.22 0.22 0.20 0.11 0.45 0.28 1.24 0.86 0.22 0.33 0.34 0.20
0.22 0.80 0.80 0.37 0.22 0.62 0.89 0.95 0.22 0.56 0.69 0.63
;
run;

proc glm;
class trt;
model evol1 evol2 evol3 evol4 = trt / nouni;
repeated day / printe nom;
run;

quit;