data plants;
input Type $ @;
do Block = 1 to 3;
input StemLength @;
output;
end;
datalines;
Clarion 32.7 32.3 31.5
Clinton 32.1 29.7 29.1
Knox 35.7 35.9 33.1
ONeill 36.0 34.2 31.2
Compost 31.8 28.0 29.2
Wabash 38.2 37.8 31.9
Webster 32.5 31.1 29.7
;
run;
ods html style=statistical;
ods graphics on;
proc glimmix data=plants order=data plots=diffogram;
class Block Type;
model StemLength = Block Type;
lsmeans Type;
run;
ods html close;