In reyzaguirre/pepa: Package for the Execution of Pre Cooked Analysis

r i = {{i}}

{{i+1}}. Analysis for variable `r vars[i]`

lc <- ck.rcbd(dfr, vars[i], trt, rep)

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) {paste("There is more than one datum for at least one", trt.lab, "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", trt.lab, "in each replication.")}

r if (lc$ng.0 > 0 & lc$nrep > 1 & lc$ng.mult == 0) {paste("There is at least one", trt.lab, "without data. The table below shows the frequencies of valid data for each", trt.lab, "in each replication. The analysis cannot be produced if there are", trt.lab.s, "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 ", trt.lab.s, " in each replication. This procedure estimates up to 10%.")