# NOT RUN {
fator1<-c(rep(1,6),rep(2,6))
fator2<-c(rep(1,3),rep(2,3),rep(1,3),rep(2,3))
repet<-rep(1:3,4)
resp<-c(10.0,10.8,9.8,10.3,11.3,10.3,9.7,10.1,10.2,9.4,11.6,9.1)
respAd1<-c(10.6,10.6,10.4)
respAd2<-c(5.7,6,7.4)
data.frame(fator1,fator2,repet,resp)
fat2.ad2.dic(fator1, fator2, repet, resp, respAd1, respAd2,
quali=c(TRUE, FALSE), mcomp = "tukey", fac.names =
c("XXXX", "YYYY"), sigT = 0.05, sigF = 0.05, unfold=NULL)
# }
Run the code above in your browser using DataLab