library(knitr) traits <- params$traits geno <- params$geno rep <- params$rep data <- params$data maxp <- params$maxp lc <- check.rcbd(traits[1], geno, rep, data)
There are data from r lc$nt
genotypes evaluated using a randomize complete block design with r lc$nr
blocks. The statistical model is
$$
y_{ij} = \mu + \tau_i + \beta_j + \epsilon_{ij}
$$
where
In this model we assume that the errors are independent and have a normal distribution with common variance, that is, $\epsilon_{ij} \sim N(0,\sigma_{\epsilon}^2)$.
out <- NULL for (i in 1:length(traits)) out <- c(out, knit_expand('child_rcbd.Rmd'))
r paste(knit(text = out), collapse = '\n')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.