/* Doing the one-way ANOVA on the rice data using a dummy variable regression approach */

DATA ricedummy; 
INPUT x0 x1 x2 x3 YIELD;
CARDS;
1 1 0 0 934
1 1 0 0 1041
1 1 0 0 1028
1 1 0 0 935
1 0 1 0 880
1 0 1 0 963
1 0 1 0 924
1 0 1 0 946
1 0 0 1 987
1 0 0 1 951
1 0 0 1 976
1 0 0 1 840
1 -1 -1 -1 992
1 -1 -1 -1 1143
1 -1 -1 -1 1140
1 -1 -1 -1 1191
;
run;

PROC REG DATA=ricedummy;
MODEL YIELD = x1 x2 x3;
run;

/* SAS forces the LAST tau parameter to be 0 in PROC GLM. */
/* See the results using the SOLUTION option in PROC GLM on this data set. */

DATA rice; 
INPUT VARIETY YIELD;
CARDS;
 1 934
 1 1041
 1 1028
 1 935
 2 880
 2 963
 2 924
 2 946
 3 987
 3 951
 3 976
 3 840
 4 992
 4 1143
 4 1140
 4 1191
;
run;

/******************************************************************************/

PROC GLM data=rice;
CLASS VARIETY;
MODEL YIELD = VARIETY / SOLUTION;
run;