A obtenção da análise de variância é ilustrada nos comandos e saídas abaixo.
ex10.av<- aov(resp ~ bloco + espA*denB + Error(bloco/(espA+denB)),data=ex10)
summary(ex10.av)
Error: bloco
Df Sum Sq Mean Sq
bloco 3 0.99206 0.33069
Error: bloco:espA
Df Sum Sq Mean Sq F value Pr(>F)
espA 3 0.67532 0.22511 1.2527 0.3473
Residuals 9 1.61729 0.17970
Error: bloco:denB
Df Sum Sq Mean Sq F value Pr(>F)
denB 2 0.27691 0.13846 0.3622 0.7104
Residuals 6 2.29354 0.38226
Error: Within
Df Sum Sq Mean Sq F value Pr(>F)
espA:denB 6 0.61647 0.10275 0.9469 0.4869
Residuals 18 1.95315 0.10851
ADILSON DOS ANJOS 2005-11-07