if (FALSE) {
library(inti)
factores <- list("geno" = c(1:99))
fb <- design_noreps(factors = factores
, type = "sorted"
, zigzag = F
, nrows = 10
)
dsg <- fb$fieldbook
fb %>%
tarpuy_plotdesign(fill = "plots")
fb$parameters
}
Run the code above in your browser using DataLab