options linesize=80 pagesize=65 nodate;

title1 'Completely Randomized Design - Unbalanced Data';
title2 'Student Test Scores';
title3 'SAS System for Linear Models, 3rd ed. - pg. 144';

data students (drop=ni);
  input ni teacher $  @; 
    do sid = 1 to ni;
      input score @@;
      output;
    end; 
cards;
 6 Jay   75 70 73 82 81 75
14 Pat   70 74 80 85 68 68 74 66 76 78 73 73 59 83
11 Robin 79 65 74 75 84 68 76 65 79 71 61
;;;;
proc print;
proc glm;
  classes teacher;
  model score = teacher / e;
  means teacher;
  lsmeans teacher / stderr tdiff pdiff;
  contrast 'Jay vs others' teacher -2  1  1;
  contrast 'Pat vs Robin'  teacher  0 -1  1;