#===================================
# One factor
#===================================
dados=rnorm(100,10,1)
trat=rep(paste("T",1:10),10)
confinterval(dados,trat)
#===================================
# Two factor
#===================================
f1=rep(c("A","B"),e=50)
f2=rep(paste("T",1:5),e=10,2)
confinterval(dados,list(f1,f2))
Run the code above in your browser using DataLab