options ls=74 nodate;
data;
   input fat surf flour1-flour4;
   cards;
 1 1  6.7 4.3 5.7  .
 1 2  7.1  .  5.9 5.6 
 1 3   .  5.5 6.4 5.8
 2 1   .  5.9 7.4 7.1
 2 2   .  5.6  .  6.8
 2 3  6.4 5.1 6.2 6.3
 3 1  7.1 5.9  .   .
 3 2  7.3 6.6 8.1 6.8
 3 3   .  7.5 9.1  . 
;
title chapter 12 - fat*surfactant;
data; set;
   drop flour1-flour4;
   flour=1; spvol=flour1; output;
   flour=2; spvol=flour2; output;
   flour=3; spvol=flour3; output;
   flour=4; spvol=flour4; output;
proc print; 
proc glm;
   classes flour fat surf;
   model spvol=flour fat|surf;
   lsmeans fat|surf / stderr pdiff;