*NKNW864.sas, two-way anova contrast using data in Table 19.7;

options nocenter;

data a1; infile 'c:\Ageorge\Purdue\Stat512\Textdata\CH19TA07.DAT';
   input sales height width;
proc print data=a1; run;

proc glm data=a1;
   class height width;
   model sales=height width height*width;
   contrast 'middle two vs all others' 
      height -.5 1 -.5 
      height*width -.25 -.25 .5 .5 -.25 -.25;
   estimate 'middle two vs all others' 
      height -.5 1 -.5 
      height*width -.25 -.25 .5 .5 -.25 -.25;
   means height*width;
run;