/********************************************************************* 
 * STAT 7010 - Experimental Statistics II 
 * Peng Zeng (Auburn University)
 * 2024-02-10 
 *********************************************************************/

data batteryblock;
   input material temp operator life @@;
datalines;
1  15 1 130   1  15 2 155   1  15 3  74   1  15 4 180
2  15 1 150   2  15 2 188   2  15 3 159   2  15 4 126
3  15 1 138   3  15 2 110   3  15 3 168   3  15 4 160
1  70 1  34   1  70 2  40   1  70 3  80   1  70 4  75
2  70 1 136   2  70 2 122   2  70 3 106   2  70 4 115
3  70 1 174   3  70 2 120   3  70 3 150   3  70 4 139
1 125 1  20   1 125 2  70   1 125 3  82   1 125 4  58
2 125 1  25   2 125 2  70   2 125 3  58   2 125 4  45
3 125 1  96   3 125 2 104   3 125 3  82   3 125 4  60
;
proc print data = batteryblock; run;

proc glm data = batteryblock;
   class material temp operator;
   model life = operator material | temp;
run;

/********************************************************************* 
 * THE END
 *********************************************************************/