Nothing
.string2design <- function(design) {
design <- tolower(design)
if ((design == "lsd") | (design == "latin")
| (design == "latin square")
| (design == "latin square design")
| (design == "latin squares design")
)
design <- "LSD"
if ((design == "rbd") | (design == "blocks")
| (design == "randomised block")
| (design == "randomised block design")
| (design == "randomised blocks design")
| (design == "randomized block")
| (design == "randomized block design")
| (design == "randomized blocks design")
)
design <- "RBD"
if ((design == "crd")
| (design == "completely randomised")
| (design == "completely randomised design")
| (design == "completely randomized")
| (design == "completely randomized design") | (design == "")
)
design <- "CRD"
design <- tolower(design)
return(design)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.