# Análise do experimento fatorial completo com confundimento total da interação tripla

#criando os bloquinhos, conforme página 8 das notas de aula:


bloco.c<-c(1,3,5,7,9,11, 2,4,6,8,10,12, 2,4,6,8,10,12, 2,4,6,8,10,12, 1,3,5,7,9,11, 1,3,5,7,9,11, 1,3,5,7,9,11, 2,4,6,8,10,12)
abc$bloco.c<-as.factor(bloco.c)

#ANOVA confundimento total da interação tripla

abc.avc<-aov(resp~A+B+C +A*B+A*C+C*B +bloco.c,data=abc)
summary(abc.avc)