R/vcov.sbchoice.R

Defines functions vcov.sbchoice

Documented in vcov.sbchoice

vcov.sbchoice <- function(object, ...)
{
    if (object$dist == "weibull") {
        solve(object$glm.out$hessian)
    } else {
        summary.glm(object$glm.out)$cov.scaled
    }
}

Try the DCchoice package in your browser

Any scripts or data that you put into this service are public.

DCchoice documentation built on Aug. 8, 2021, 9:06 a.m.