### Diseno 2 a la 3 ###
### Version 2.0 ###
#Nombre de los datos: "datos"
#descargar la libreria library(FrF2)
library(FrF2)
View(datos)
FactorA <- factor(datos$MALLA)
FactorB <- factor(datos$SEC)
FactorC <- factor(datos$REP)
RTA <- datos$RTA
MOD<-lm(RTA ~ FactorA*FactorB*FactorC)
Efectos<-data.frame(FactorA, FactorB, FactorC, RTA)
plot.design(Efectos, fun="mean")
MEPlot(MOD)
IAPlot(MOD)
anova(MOD)