In CIP-RIU/hidap: High Interactive Data Analysis Platform for Plant breeding

r i = {{i}}

{{i+1}}. Analysis for trait `r traits[i]`

lc <- ck.rcbd(traits[i], geno, rep, dfr)

r if (lc$nrep == 1) {"There is only one replication. Analysis is not possible with one replication."}

r if (lc$nrep > 1 & lc$ng.mult > 0) {"There is more than one datum for at least one genotype in at least one replication. This could be the result of a mislabeling for the levels of the factors. The table below shows the frequencies of valid data for each genotype in each replication."}

r if (lc$ng.0 > 0 & lc$nrep > 1 & lc$ng.mult == 0) {"There is at least one genotype without data. The table below shows the frequencies of valid data for each genotype in each replication. The analysis cannot be produced if there are genotypes without data."}

r if (lc$pmis > maxp & lc$ng.0 == 0 & lc$nrep > 1 & lc$ng.mult == 0) paste0("There are too many missing values (", format(lc$pmis * 100, digits = 3), "%). The table below shows the frequencies of valid data for each genotype in each replication. This procedure estimates up to 10%.")