options nodate nonumber ps=55 ls=76;

title 'Kuehl -- Example 7.2 -- Chem Methods and Days';

data one;
input method day serum @@;
datalines;
1 1 142.3 1 1 144.0 1 2 134.9 1 2 146.3 1 3 148.6 1 3 156.5 1 4 152.0 1 4 151.4
2 1 142.9 2 1 147.4 2 2 125.9 2 2 127.6 2 3 135.5 2 3 138.9 2 4 142.9 2 4 142.3
;
run;

proc glm;
class method day;
model serum=method day method*day;
test h=method e=method*day;
test h=day e=method*day;
random day method*day;
run;


quit;