r i = {{i}}
r traits[i]
lc <- ck.crd(traits[i], geno, dfr)
r if (lc$nrep == 1) {"There is only one replication. Analysis is not possible with one replication."}
r if (lc$ng.0 > 0 & lc$nrep > 1) {"There is at least one genotype without data. The table below shows the frequencies of valid data for each genotype. The analysis cannot be produced if there are genotypes without data."}
if (lc$nrep > 1) lc$tf
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.