R/vcov.sbchoice.R

In DCchoice: Analyzing Dichotomous Choice Contingent Valuation Data

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