library(agricolaeplotr)
library(agricolae)
k <- 2
r <- 6
trt <-c('CIP-101','CIP-201','CIP-301','CIP-401','CIP-501',LETTERS[1:2])
outdesign<- design.cyclic(trt,k=k, r=r, serie=3, rowcol=TRUE)
plot_cyclic(outdesign, factor_name = 'trt')
Run the code above in your browser using DataLab