1. Un Factorial 2A * 3B con 4 repeticiones en un diseño DCA fue realizado en un invernadero. Resultando los datos:

| a1 | | | a2 | | b1 | b2 | b3 | b1 | b2 | b3 | 1 | 4 | 2 | 6 | 1 | 1 | 0 | 3 | 3 | 5 | 1 | 0 | 1 | 5 | 4 | 4 | 2 | 1 | 2 | 5 | 4 | 5 | 2 | 2 |

i) Realizar el ANVA e interpretar sus resultados. ii) La interacción AB puede resultar altamente significativa, por lo tanto requiere el análisis de comparación de medias a un nivel de significancia del 5%. iii) Dibujar la interacción. iv) Como interpreta su análisis de residuales.

-------------------------------------------------
# Abriendo base de datos

> rm(list=ls(all=TRUE))
> library(agricolae)
> datos attach(datos)
> datos A B I II III IV …ver más…

-------------------------------------------------
# Obtención del Coeficiente de Variación
> cv.model(Modelo)
[1] 31.25
-------------------------------------------------
# Se afirma con el alto coeficiente de variación que hubo un manejo deficiente de las unidades experimentales.

-------------------------------------------------
# Declaracion de grados de libertad y cuadrado medio del error
> df MSerror suma=apply(data[,1:4],1,sum)
> r=length(data)
> Medias=suma/r
> M=matrix(Medias,nrow=2)
> M [,1] [,2] [,3]
[1,] 1.00 3.25 1.5
[2,] 4.25 5.00 1.0

> ex=c(-1,1)
> matplot(ex,M,type="b",xlim=c(-1,1),xlab="Niveles de A (A1-A2)",ylab="Promedios de B")

-------------------------------------------------
# Se concluye con esta grafica que A2 influye positivamente en b1 y b2 mientras que para b3 se presentan valores bajos en A2. También que para A1 se presentan valores bajos y similares de b1 y b3, mientras que para b2 se presentan valores más bajos en A1 que en A2, pero aun más altos que los de b1-b3.

Con estas conclusiones se pueden elaborar 4 hipótesis para las interacciones:
Para A1 Ho1:(b1+b3)/2=b2 Ho2:b1=b3

Para A2 Ho1:(b2+b1)/2=b3 Ho2:b2=b1

-------------------------------------------------
# Comparacion de medias para las interacciones
>
> Sumas=matrix(suma,nrow=2)
> Sumas [,1] [,2] [,3]
[1,] 4 13 6
[2,] 17 20 4
>
# Obtencion de suma de cuadrados
>
>