runExpDesign()
## Not run
## Animation for side by side comparisons of how EUs are assigned to treatments
## for 12 different experimental designs.
method = matrix(nrow=100,ncol=12,rep(c("CRD", "factorial2by2", "factorial2by2by2",
"nested", "RCBD", "RIBD", "split", "split.split", "SPRB", "strip.split", "latin",
"pairs"),100),byrow=TRUE)
for(i in 1:nrow(method)){
runExpDesign(method[i,])
Sys.sleep=0.1
}
Run the code above in your browser using DataLab