options nodate nonumber ps=62 ls=78;
data subdiv;
input trat$ 1-14 tempo$ 19-23 rep$ 27-32 diametro;
datalines; 
MSE (Original)    48 hs    rep 1       27
MSE (Original)    48 hs    rep 2       27
MSE (Original)    72 hs    rep 1       15
MSE (Original)    72 hs    rep 2       15
MSE (Original)    96 hs    rep 1       18
MSE (Original)    96 hs    rep 2       18
MSE su 1 nic 8    48 hs    rep 1       22
MSE su 1 nic 8    48 hs    rep 2       25
MSE su 1 nic 8    72 hs    rep 1       21
MSE su 1 nic 8    72 hs    rep 2       18
MSE su 1 nic 8    96 hs    rep 1       18
MSE su 1 nic 8    96 hs    rep 2       16
MSE su 2 nic 8    48 hs    rep 1       26
MSE su 2 nic 8    48 hs    rep 2       27
MSE su 2 nic 8    72 hs    rep 1       17
MSE su 2 nic 8    72 hs    rep 2       17
MSE su 2 nic 8    96 hs    rep 1       19
MSE su 2 nic 8    96 hs    rep 2       19
MSE su 3 nic 8    48 hs    rep 1       25
MSE su 3 nic 8    48 hs    rep 2       25
MSE su 3 nic 8    72 hs    rep 1       14
MSE su 3 nic 8    72 hs    rep 2       15
MSE su 3 nic 8    96 hs    rep 1       16
MSE su 3 nic 8    96 hs    rep 2       16
MSE su 4 nic 8    48 hs    rep 1       23
MSE su 4 nic 8    48 hs    rep 2       25
MSE su 4 nic 8    72 hs    rep 1       15
MSE su 4 nic 8    72 hs    rep 2       14
MSE su 4 nic 8    96 hs    rep 1       17
MSE su 4 nic 8    96 hs    rep 2       18
MSE su 5 nic 8    48 hs    rep 1       23
MSE su 5 nic 8    48 hs    rep 2       24
MSE su 5 nic 8    72 hs    rep 1       12
MSE su 5 nic 8    72 hs    rep 2       14
MSE su 5 nic 8    96 hs    rep 1       19
MSE su 5 nic 8    96 hs    rep 2       16
MSE su 6 nic 8    48 hs    rep 1       21
MSE su 6 nic 8    48 hs    rep 2       23
MSE su 6 nic 8    72 hs    rep 1       15
MSE su 6 nic 8    72 hs    rep 2       15
MSE su 6 nic 8    96 hs    rep 1       16
MSE su 6 nic 8    96 hs    rep 2       16
MSE su 7 nic 8    48 hs    rep 1       11
MSE su 7 nic 8    48 hs    rep 2       11
MSE su 7 nic 8    72 hs    rep 1        6
MSE su 7 nic 8    72 hs    rep 2        8
MSE su 7 nic 8    96 hs    rep 1        7
MSE su 7 nic 8    96 hs    rep 2        6
MSE su 8 nic 8    48 hs    rep 1       26
MSE su 8 nic 8    48 hs    rep 2       26
MSE su 8 nic 8    72 hs    rep 1       12
MSE su 8 nic 8    72 hs    rep 2       12
MSE su 8 nic 8    96 hs    rep 1       15
MSE su 8 nic 8    96 hs    rep 2       15
MSE su 9 nic 8    48 hs    rep 1       27
MSE su 9 nic 8    48 hs    rep 2       27
MSE su 9 nic 8    72 hs    rep 1       15
MSE su 9 nic 8    72 hs    rep 2       16
MSE su 9 nic 8    96 hs    rep 1       17
MSE su 9 nic 8    96 hs    rep 2       18
;

proc print;
title 'Dados';
run;

proc glm;
title 'Parcela subdividida';
 class trat rep tempo;
 model DIAMETRO = trat rep(trat) tempo trat*tempo;
 test h=trat e=rep(trat);
run;

proc glm;
title 'Parcela subdividida na presença de interação';
 class trat rep tempo;
 model DIAMETRO = trat rep(trat) tempo trat*tempo;
 test h=trat e=rep(trat);
 lsmeans trat*tempo / slice=trat adjust=tukey PDIFF;
run;