R/vcov.mexhaz.R

In mexhaz: Mixed Effect Excess Hazard Models

Defines functions vcov.mexhaz vcov

Documented in vcov vcov.mexhaz

vcov <- function(object, ...) UseMethod("vcov")

vcov.mexhaz <- function(object, ...){

    if (is.na(object$random)){
        res <- object$vcov
    }
    else {
        res <- object$vcov[1:(object$n.par-1),1:(object$n.par-1)]
    }

    return(res)
}

Try the mexhaz package in your browser