# DCA
data(d_e, package = "Analitica")
mod1 <- aov(Sueldo_actual ~ as.factor(labor), data = d_e)
resultado <- GabrielTest(mod1)
summary(resultado)
plot(resultado)
# RCBD
mod2 <- aov(Sueldo_actual ~ as.factor(labor) + Sexo, data = d_e)
res <- GabrielTest(mod2, comparar = "as.factor(labor)")
summary(res); plot(res)
# Factorial
mod3 <- aov(Sueldo_actual ~ as.factor(labor) * Sexo, data = d_e)
resAB <- GabrielTest(mod3, comparar = c("as.factor(labor)","Sexo")) # celdas A:B
summary(resAB, n = Inf); plot(resAB, horizontal = TRUE)
Run the code above in your browser using DataLab