Nothing
print.gslcca <- function(x, digits = max(3, getOption("digits") - 3), ...){
cat("\nCall:\n", deparse(x$call), "\n", sep = "", fill = TRUE)
if (x$global.smooth != 0)
cat("Data pre-smoothed using", x$global.smooth, "roots\n")
ns <- ncol(x$ycoef)
if (ns != 1) {
cat("GSLCCA based on", ns, "subjects\n")
}
if (x$subject.smooth != 0) {
cat("\nData smoothed at subject level using", x$subject.smooth,
"roots\n")
}
cat("\nNonlinear parameters:\n")
print(format(x$nonlinear.parameters, digits = max(4, digits + 1)),
quote = FALSE)
}
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.