/* Sections 4.1.2 and 4.2.2 (p. 86 and p. 107) Insect traps MCA example */

data traps3c2;
input color count;
cards;
1 38.5681744617727
1 42.8209046770636
1 47.0736348923545
1 51.3263651076455
1 55.5790953229364
1 59.8318255382273
2 24.2681744617727
2 28.5209046770636
2 32.7736348923545
2 37.0263651076455
2 41.2790953229364
2 45.5318255382273
3 15.7681744617727
3 20.0209046770636
3 24.2736348923545
3 28.5263651076455
3 32.7790953229364
3 37.0318255382273
4 6.5681744617727
4 10.8209046770636
4 15.0736348923545
4 19.3263651076455
4 23.5790953229364
4 27.8318255382273
5 4.3681744617727
5 8.62090467706362
5 12.8736348923545
5 17.1263651076455
5 21.3790953229364
5 25.6318255382273
;
proc glm;
class color;
model count = color;
lsmeans color/pdiff = all adjust = tukey cl;
lsmeans color/pdiff = all adjust = scheffe cl;
means color/regwq regwf snk duncan lsd;
run;