Nothing
"print.crossval" <-
function(x, digits = min(3, getOption("digits") - 3), ...)
{
names(x$CVfit) <- paste("COCA", 1:x$n.axes, sep = " ")
cat("\nCross-validation for Predictive Co-Correspondence Analysis\n\n")
writeLines(strwrap(pasteCall(x$call)))
cat(sprintf("\nCross-validatory %%fit of %s to %s:\n\n", x$nam.dat$namX,
x$nam.dat$namY))
print(round(x$CVfit, digits), print.gap = 2)
}
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.