library(agricolae)
#Example one
trt<-1:30
t <- length(trt)
# size block k
k<-3
# Blocks s
s<-t/k
# replications r
r <- 2
book<- design.alpha(trt,k,r)
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
trt<-as.numeric(book[,4])
dim(trt)<-c(k,s,r)
for (i in 1:r) print(t(trt[,,i]))
# Example two
trt<-letters[1:12]
t <- length(trt)
k<-3
r<-3
s<-t/k
book<- design.alpha(trt,k,r)
plots<-book[,1]
dim(plots)<-c(k,s,r)
for (i in 1:r) print(t(plots[,,i]))
trt<-book[,4]
dim(trt)<-c(k,s,r)
for (i in 1:r) print(t(trt[,,i]))Run the code above in your browser using DataLab