Análise de variância

A análise de variância para o experimento fatorial conduzido no delineamento em blocos completos casualizados pode ser obtida com o comando:

> ex05.av <- aov(resp ~ bloc + n + p + k + n*p + n*k + p*k + n*p*k)

ou

> ex05.av <- aov(resp ~ bloc + n*p*k)
> summary(ex05.av)
            Df   Sum Sq  Mean Sq F value    Pr(>F)    
bloc         5  2134332   426866  0.7127 0.6180190    
n            1 10229610 10229610 17.0797 0.0002123 ***
p            1   194438   194438  0.3246 0.5724714    
k            1  6279257  6279257 10.4841 0.0026366 ** 
n:p          1   553196   553196  0.9236 0.3431151    
n:k          1  8728749  8728749 14.5738 0.0005274 ***
p:k          1   474218   474218  0.7918 0.3796409    
n:p:k        1   288765   288765  0.4821 0.4920416    
Residuals   35 20962662   598933                      
---
Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1

O uso da função model.tables permite a obtenção de estatísticas para cada um dos fatores do modelo e a combinação entre eles.

> ex05.mt <- model.tables(ex05.av, ty="means")
> ex05.mt