r i = {{i}}
r vars[i]
lc <- ck.crd(dfr, vars[i], trt)
r if (lc$nrep == 1) {"There is only one replication. Analysis is not possible with one replication."}
r if (lc$ng == 1 & lc$nrep > 1) paste("There is only one ", trt.lab, ". There is nothing to compare.")
r if (lc$ng == 2 & lc$nrep > 1) paste("There are only two ", trt.lab.s, ". Use a t-test to compare them.")
r if (lc$ng.0 > 0 & lc$ng > 2 & lc$nrep > 1) paste0("There is at least one ", trt.lab, " without data. The table below shows the frequencies of valid data for each ", trt.lab, ". The analysis cannot be produced if there are ", trt.lab.s, " without data.")
if (lc$ng.0 > 0 & lc$ng > 2 & lc$nrep > 1) lc$tf
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.