Data STEER;
INPUT BULLS $ WTGAINK;
CARDS;
B1	1.46		
B1	1.23
B1	1.12
B1	1.23
B1	1.02
B1	1.15
B2	1.17
B2	1.08
B2	1.20
B2	1.08
B2	1.01
B2	0.86
B2	1.19
B2	0.97
B3	0.98
B3	1.06
B3	1.15
B3	1.11
B3	0.83
B3	0.86
B3	0.99
B4	0.95
B4	1.10
B4	1.07
B4	1.11
B4	0.89
B4	1.12
B4	1.15
B4	1.10
;
RUN;
PROC PRINT DATA = STEER;
RUN;
PROC MEANS DATA = STEER;
RUN;
PROC SORT DATA = STEER OUT = BULLSORT;
	BY BULLS;
RUN;
PROC MEANS DATA = BULLSORT;
	BY BULLS;
		VAR WTGAINK;
RUN;
PROC GLM;
	CLASS  BULLS;
		MODEL WTGAINK = BULLS;
			MEANS BULLS/TUKEY;
RUN;
 QUIT;