Nothing
##' @export
vcov.lvmfit <- function(object,...) {
res <- object$vcov
if ("lvm.missing"%in%class(object)) {
resnames <- names(pars(object))
} else {
resnames <- coef(Model(object),fix=FALSE, mean=object$control$meanstructure)
}
colnames(res) <- rownames(res) <- resnames
return(res)
}
##' @export
vcov.multigroupfit <- function(object,...) {
res <- object$vcov
colnames(res) <- rownames(res) <- object$model$name
return(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.