* Blood.txt (anova.sas);
/*  Blood coagulation time (in seconds) for blood drawn from 24
    animals randomly allocated to four different diets.
    (Source:  Box, Hunter, and Hunter, 1978)
****************************************************************/
options ls=76;
data blood;
input diet $ time;
cards;
A 62
A 60
A 63
A 59
B 63
B 67
B 71
B 64
B 65
B 66
C 68
C 66
C 71
C 67
C 68
C 68
D 56
D 62
D 60
D 61
D 63
D 64
D 63
D 59
;
proc print;
 title 'Blood coagulation time for four different diets';
;
proc plot;
 plot time*diet / vpos=20;
;
proc glm;
 class diet;
 model time = diet;
 means diet;
 means diet / Tukey;
run;