options nodate nonumber ls=78;
data aula5a;
input trat bloco PG tipo $;
cards;
 1      1      6.76      V
 2      1      6.91      V
 3      1      6.41      V
 4      1      5.63      V
 5      1      5.79      V
 6      1      7.50      H
 7      1      8.37      H
 8      1      6.80      H
 9      1      8.54      H
10      1      7.59      H
11      1      7.12      H
12      1      8.22      H
13      1      7.61      H
14      1      7.72      H
15      1      6.87      H
 1      2      6.51      V
 2      2      5.71      V
 3      2      6.06      V
 4      2      7.06      V
 5      2      5.34      V
 6      2      7.03      H
 7      2      7.52      H
 8      2      9.05      H
 9      2      7.26      H
10      2      9.03      H
11      2      8.63      H
12      2      8.27      H
13      2      7.35      H
14      2      7.87      H
15      2      7.18      H
;
run;

proc glm;
title 'Análise de variância e teste de Tukey';
  class trat bloco;
  model PG = trat bloco;
  means trat/tukey;
run;

proc glm;
title 'Análise de variância com decomposição dos GLs - contrastes';
 class trat bloco;
 model PG = trat bloco;
 contrast 'Varied vs Hib' trat  2  2  2  2  2 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1;
 contrast 'Dentro Varied' trat -3 -3  2  2  2,
                          trat  1 -1  0  0  0,
                          trat  0  0 -2  1  1,
                          trat  0  0  0 -1  1;
 contrast 'Dentro Hibrid' trat  0  0  0  0  0 -1 -1 -1 -1 -1  1  1  1  1  1,
                          trat  0  0  0  0  0 -3 -3  2  2  2  0  0  0  0  0,
                          trat  0  0  0  0  0 -1  1  0  0  0  0  0  0  0  0,
                          trat  0  0  0  0  0  0  0 -2  1  1  0  0  0  0  0,
                          trat  0  0  0  0  0  0  0  0 -1  1  0  0  0  0  0,
                          trat  0  0  0  0  0  0  0  0  0  0 -3 -3  2  2  2,
                          trat  0  0  0  0  0  0  0  0  0  0 -1  1  0  0  0,
                          trat  0  0  0  0  0  0  0  0  0  0  0  0 -2  1  1,
                          trat  0  0  0  0  0  0  0  0  0  0  0  0  0 -1  1;
run;