options linesize=80 pagesize=65 nodate;

title1 'Randomized Complete Block Design';
title2 'Emergence of Infected Corn Seed';
title3 'Steel & Torrie Text 2nd ed. - pg. 207';

data corn;
  do treat = 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H';
    do block = 1 to 6;
      input emerged @@;
      output;
    end;
  end;
cards;
 8  8  9  7  7  5
16 19 24 22 19 19
14 16 14 13 14 13
10 11 12  8  7  3
 8  7  1  1  3  2
 8  8  3  3  3  7
 7  6  6  6  4  4
12 19  9 11  9  5
;;;;
proc print;
proc glm;
  classes treat block;
  model emerged = treat block;
  means treat block / duncan ;
  contrast 'A vs rest'   treat -7  1  1  1  1  1  1  1;
  contrast 'BC vs DEFGH' treat  0  5  5 -2 -2 -2 -2 -2;
  contrast 'B vs C'      treat  0  1 -1  0  0  0  0  0;
  contrast 'DH vs EFG'   treat  0  0  0  3 -2 -2 -2  3;
  contrast 'D vs H'      treat  0  0  0  1  0  0  0 -1;
  contrast 'E vs FG'     treat  0  0  0  0  2 -1 -1  0;
  contrast 'F vs G'      treat  0  0  0  0  0  1 -1  0;