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