Nothing
summary.gslcca <- function(object, ...){
opt.value <- sapply(object$opt, "[[", "value")
opt.iter <- sapply(object$opt, function(x) x$counts[1])
opt.conv <- sapply(object$opt, "[[", "convergence")
names(opt.value) <- names(opt.iter) <- names(opt.conv) <- colnames(object$xcoef)
res <- list(call = object$call,
global.smooth = object$global.smooth,
subject.smooth = object$subject.smooth,
pct.explained = object$pct.explained,
nonlinear.parameters = object$nonlinear.parameters,
cor = object$cor,
opt.value = opt.value,
opt.iter = opt.iter,
opt.conv = opt.conv)
class(res) <- "summary.gslcca"
res
}
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.