# Experimento com Confundimento Parcial

# Entrando com os dados

A<-rep(rep(c(0,1,2),3),3)
B<-rep(c(0,1,2,2,0,1,1,2,0),3)
bloco<-rep(1:9),each=3)
resp<-c(3196,3277,3222,2909,3287,2885,2530,3233,3679,3091,3363,3378,3322,3313,3731,3025,3027,3391,2781,3320,3423,3047,3332,2944,3286,3519,3639)


#Transformando em Fatores

A<-as.factor(A)
B<-as.factor(B)
bloco<-as.factor(bloco)
conf32<-data.frame(A,B,bloco,resp)

#ANOVA

conf32.av<-aov(resp~A+B+A*B+bloco,data=conf32)
summary(conf32.av)