library(agricolae)
# 4 treatments and 5 blocks
trt<-c("A","B","C","D")
rcbd <-design.rcbd(trt,5,number=101,45,"Super-Duper") # seed = 45
rcbd # field book
plots <-as.numeric(rcbd[,1])
trt <-as.character(rcbd[,3])
dim(plots)<-c(4,5)
dim(trt) <-c(4,5)
print(t(plots))
print(t(trt))
# write in hard disk
# write.table(rcbd,"rcbd.txt", row.names=FALSE, sep="\t")
# file.show("rcbd.txt")
Run the code above in your browser using DataLab