# dataframe: data analysis
library(agricolae)
data(sweetpotato)
X<-design.mat(sweetpotato,1)
print(X)
# fieldbook: RCBD design
trt <- LETTERS[1:4]
r<-3
plan<-design.rcbd(trt,r,seed=11)
X<-design.mat(plan$book,2:3)
print(X)
Run the code above in your browser using DataLab