data fatorial;
length linhagem $ 14 acido $ 9;
input linhagem $ acido $ bloco MS;
cards;
MSE_(Original)      Sem_acido      1       47.2
MSE_(Original)      Sem_acido      2       38.2
MSE_(Original)      Com_acido      1      140.0
MSE_(Original)      Com_acido      2      152.0
MSE_su_1_nic_8      Sem_acido      1       37.6
MSE_su_1_nic_8      Sem_acido      2       44.4
MSE_su_1_nic_8      Com_acido      1       79.6
MSE_su_1_nic_8      Com_acido      2       74.0
MSE_su_2_nic_8      Sem_acido      1      103.2
MSE_su_2_nic_8      Sem_acido      2      106.0
MSE_su_2_nic_8      Com_acido      1      102.6
MSE_su_2_nic_8      Com_acido      2      112.0
MSE_su_3_nic_8      Sem_acido      1      163.6
MSE_su_3_nic_8      Sem_acido      2      176.0
MSE_su_3_nic_8      Com_acido      1      120.8
MSE_su_3_nic_8      Com_acido      2      128.2
MSE_su_4_nic_8      Sem_acido      1      133.0
MSE_su_4_nic_8      Sem_acido      2      125.0
MSE_su_4_nic_8      Com_acido      1      147.3
MSE_su_4_nic_8      Com_acido      2      161.9
MSE_su_5_nic_8      Sem_acido      1      103.6
MSE_su_5_nic_8      Sem_acido      2       98.4
MSE_su_5_nic_8      Com_acido      1      168.2
MSE_su_5_nic_8      Com_acido      2      160.2
MSE_su_6_nic_8      Sem_acido      1       85.3
MSE_su_6_nic_8      Sem_acido      2       92.7
MSE_su_6_nic_8      Com_acido      1       93.5
MSE_su_6_nic_8      Com_acido      2       84.9
MSE_su_7_nic_8      Sem_acido      1       56.8
MSE_su_7_nic_8      Sem_acido      2       46.8
MSE_su_7_nic_8      Com_acido      1       87.3
MSE_su_7_nic_8      Com_acido      2       93.1
MSE_su_8_nic_8      Sem_acido      1      110.6
MSE_su_8_nic_8      Sem_acido      2      119.2
MSE_su_8_nic_8      Com_acido      1      162.6
MSE_su_8_nic_8      Com_acido      2      177.8
MSE_su_9_nic_8      Sem_acido      1       36.2
MSE_su_9_nic_8      Sem_acido      2       37.8
MSE_su_9_nic_8      Com_acido      1       73.0
MSE_su_9_nic_8      Com_acido      2       74.0
;
run;

proc glm;
title 'Análise de variância';
 class linhagem acido bloco;
 model MS = bloco linhagem acido linhagem*acido;
run;

proc glm;
title 'Análise de variância na presença de interação significativa I';
 class linhagem acido bloco;
 model MS = bloco linhagem acido linhagem*acido;
 lsmeans acido*linhagem / slice=linhagem;
run;

proc glm;
title 'Análise de variância na presença de interação significativa II';
 class linhagem acido bloco;
 model MS = bloco linhagem acido linhagem*acido;
 lsmeans acido*linhagem / slice=acido adjust=tukey PDIFF;
run;