option nodate nonumber ls=76 ps=55;

title 'Kuehl -- Example 12.2 -- Fractional Factorial';

data one;
input a s m c t y @@;
datalines;
0 0 0 0 1 41.5 1 0 0 0 0 39.6 0 1 0 0 0 43.9 1 1 0 0 1 38.8
0 0 1 0 0 48.7 1 0 1 0 1 52.0 0 1 1 0 1 55.8 1 1 1 0 0 43.2
0 0 0 1 0 39.5 1 0 0 1 1 42.6 0 1 0 1 1 44.0 1 1 0 1 0 33.8
0 0 1 1 1 53.6 1 0 1 1 0 48.1 0 1 1 1 0 51.3 1 1 1 1 1 48.7
;
run;

proc glm;
class a s m c t;
model y = a m t s a*s;
run;

quit;