library(agricolaeplotr)
library(agricolae)
# 5 treatments and 6 blocks
trt<-c('A','B','C','D','E')
outdesign <-design.rcbd(trt,6,serie=2,986,'Wichmann-Hill') # seed = 986
plot_rcbd(outdesign)
plot_rcbd(outdesign,reverse_y = TRUE,reverse_x = TRUE)
Run the code above in your browser using DataLab