Teste de não aditividade de Tukey

Implementação do teste de não aditividade proposto por Tukey (1949) para testar o efeito de interação envolvendo delineamentos com dois fatores fixos cruzados e uma única replicação.

Realiza o teste de nao aditividade para delineamentos com dois fatores fixos cruzados.

interactionTest(object)

Arguments

object

object ajustado (objeto deve ter classe aov ou lm)

Value

Retorna a tabela ANOVA

References

Montgomery, D. C. (2016) Design and Analysis of Experiments, 8ª. Edição, New York: Wiley.

Examples

# \donttest{
library(planex)
library(tidyverse)
head(impureza)
#>   impureza temperatura pressao
#> 1        5         100      25
#> 2        3         125      25
#> 3        1         150      25
#> 4        4         100      30
#> 5        1         125      30
#> 6        1         150      30
sapply(impureza, class)
#>    impureza temperatura     pressao 
#>   "integer"    "factor"   "numeric" 
impureza <- mutate(impureza,
                  temperatura = as.factor(temperatura),
                  pressao = as.factor(pressao)
)

mod <- aov(impureza~temperatura+pressao, data=impureza)
interactionTest(mod)
#> Anova Table (Type II tests)
#> 
#> Response: impureza
#>              Sum Sq Df F value    Pr(>F)    
#> temperatura 23.3333  2 42.9491 0.0001174 ***
#> pressao     11.6000  4 10.6759 0.0042006 ** 
#> interacao    0.0985  1  0.3627 0.5660026    
#> Residuals    1.9015  7                      
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
# }