if (FALSE) {
library(inti)
factores <- list("geno" = c("A", "B", "C", "D", "D", 1, NA, NA, NULL, "NA")
, "salt stress" = c(0, 50, 200, 200, "T0", NA, NULL, "NULL")
, time = c(30, 60, 90)
)
fb <-design_repblock(nfactors = 1
, factors = factores
, type = "crd"
, rep = 4
, zigzag = T
, seed = 0
)
dsg <- fb$fieldbook
fb %>%
tarpuy_plotdesign(fill = "geno")
fb$parameters
}
Run the code above in your browser using DataLab