Nothing
print.covfm <- function(x, digits = max(3, getOption("digits") - 3), ...)
{
n.models <- length(x)
mod.names <- names(x)
cat("\nCalls: \n")
for(i in 1:n.models) {
cat(mod.names[i], ": ")
dput(x[[i]]$call)
}
p <- nrow(x[[1]]$cov)
i1 <- rep(seq(p), times = p)
i2 <- rep(seq(p), each = p)
cov.index <- paste("[", paste(i1, i2, sep = ","), "]", sep = "")
cov.index <- matrix(cov.index, p, p)
cov.index <- cov.index[row(cov.index) >= col(cov.index)]
cov.unique <- t(sapply(x, function(u) u$cov[row(u$cov) >= col(u$cov)]))
dimnames(cov.unique) <- list(mod.names, cov.index)
cat("\nComparison of Covariance/Correlation Estimates:\n")
cat(" (unique covariance terms) \n")
print(cov.unique, digits = digits, ...)
center <- t(sapply(x, function(u) u$center))
center.names <- names(x[[1]]$center)
dimnames(center) <- list(mod.names, center.names)
cat("\nComparison of Location Estimates: \n")
print(center, digits = digits, ...)
invisible(x)
}
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.