library(agricolae)
trt<-letters[1:8]
# block size = 2, replication = 6
plan1 <- design.cyclic(trt,k=2, r=6)
names(plan1)
# groups 1,2,3
plan1$design[[1]]
plan1$design[[2]]
plan1$design[[3]]
plan1$book
# row-column design
plan2 <- design.cyclic(trt,k=2, r=6, rowcol=TRUE)
plan2$design
Run the code above in your browser using DataLab