library(agricolae)
cipnumber <-c("CIP-101","CIP-201","CIP-301","CIP-401","CIP-501")
rep <-c(4,3,5,4,3)
# seed = 12543
crd1 <-design.crd(cipnumber,rep,number=101,12543,"Mersenne-Twister")
# no seed
crd2 <-design.crd(cipnumber,rep,number=101)
# write to hard disk
# write.table(crd1,"crd.txt", row.names=FALSE, sep="\t")
# file.show("crd.txt")
Run the code above in your browser using DataLab