Nothing
summary.covClassic <- function(object, ...)
{
evals <- eigen(object$cov, symmetric = TRUE, only.values = TRUE)$values
names(evals) <- paste("Eval.", 1:length(evals))
object$evals <- evals
object <- object[c("call", "cov", "center", "evals", "dist", "corr")]
oldClass(object) <- "summary.covClassic"
object
}
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.