Last chance! 50% off unlimited learning
Sale ends in
design.split(trt1, trt2,r=NULL, design=c("rcbd","crd","lsd"),serie = 2,
seed = 0, kinds = "Super-Duper", first=FALSE)
design.ab
, design.alpha
,design.bib
,
design.crd
, design.cyclic
, design.dau
,
design.graeco
, design.lattice
, design.lsd
,
design.rcbd
, design.strip
library(agricolae)
# 4 treatments and 5 blocks in split-plot
t1<-c("A","B","C","D")
t2<-c(1,2,3)
outdesign <-design.split(t1,t2,r=3,serie=2,seed=45,kinds ="Super-Duper")#seed=45
book<-outdesign$book# field book
# write in hard disk
# write.table(book,"book.txt", row.names=FALSE, sep="\t")
# file.show("book.txt")
Run the code above in your browser using DataLab