/* Two-Way Experiment with Missing Cells -- Types I,II,III,IV SS -- MJ 13.1 */
options nocenter ls=80;
data twoway;
   infile 'ss.dat';
   input t b y;
proc glm;
   class t b;
   model y = t b t*b / ss1 ss2 ss3 ss4;
data jumble; set twoway; /* jumbled labels change type IV SS (I-III same) */
   t = 4 - t; b = 4 - b;
proc glm;
   class t b;
   model y = t b t*b / ss4;
proc glm;		/* additive model */
   class t b;
   model y = t b / ss2;
data a; set twoway;	/* 2x2 subset: balanced but no replicates */
   if t = 1 or b = 3 then delete;
proc glm;
   class t b;
   model y = t b / ss1;
data b; set twoway;	/* 2x2 subset: unbalanced with replicates */
   if t = 3 or b = 2 then delete;
proc glm;
   class t b;
   model y = t b t*b / ss1 ss2 ss3;