R/vcov.R

Defines functions vcov.multigroupfit vcov.lvmfit

##' @export
vcov.lvmfit <- function(object,...) {
    res <- object$vcov
    if (inherits(object,"lvm.missing")) {
        resnames <- names(coef(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)
}
kkholst/lava documentation built on Sept. 6, 2021, 11:36 p.m.