View source: R/design_repblock.R
design_repblock | R Documentation |
Function to deploy field-book experiment for CRD and RCBD
design_repblock(
nfactors = 1,
factors,
type = "crd",
rep = 3,
zigzag = FALSE,
nrows = NA,
serie = 100,
seed = NULL,
fbname = "inkaverse",
qrcode = "{fbname}{plots}{factors}"
)
nfactors |
Number of factor in the experiment [numeric: 1]. |
factors |
Lists with names and factor vector [list]. |
type |
Type of experimental arrange [string: "crd" "rcbd" "lsd"] |
rep |
Number of replications in the experiment [numeric: 3]. |
zigzag |
Experiment layout in zigzag [logic: F]. |
nrows |
Experimental design dimension by rows [numeric: value] |
serie |
Number to start the plot id [numeric: 100]. |
seed |
Replicability from randomization [numeric: NULL]. |
fbname |
Bar code prefix for data collection [string: "inkaverse"]. |
qrcode |
[string: "{fbname}{plots}{factors}"] String to concatenate the qr code. |
A list with the field-book design and parameters
## Not run:
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 = 2
, factors = factores
, type = "rcbd"
, rep = 5
, zigzag = T
, seed = 0
, nrows = 20
, qrcode = "{fbname}{plots}{factors}"
)
dsg <- fb$fieldbook
fb %>%
tarpuy_plotdesign(fill = "plots")
fb$parameters
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.