# factorial 3 x 3 with 5 replications
# 3 varieties from potato and nitrogen in the fertilization, kg/ha
library(agricolae)
variety <- c("perricholi","canchan","tomasa")
nitrogen <- c(40,80,120) # level of nitrogen
rcbd.ab <-design.ab(variety, nitrogen, 5, number=1001)
print(rcbd.ab) # print of the field book
Run the code above in your browser using DataLab