if (FALSE) {
factors <- list(
Soil = c("S1", "S2", "S3", "S4"),
Fertilizer = c("N1", "N2", "N3", "N4", "N5", "N6")
)
design_split_rcbd(
factors = factors,
rep = 3,
zigzag = TRUE,
seed = 123
)$fieldbook
}
Run the code above in your browser using DataLab