R/logLik.sbchoice.R

In DCchoice: Analyzing Dichotomous Choice Contingent Valuation Data

Defines functions logLik.sbchoice

Documented in logLik.sbchoice

logLik.sbchoice <- function(object, ...)
{
    out <- summary(object)$loglik
    attr(out, "df") <- sum(!is.na(coefficients(object)))
    attr(out, "nobs") <- object$nobs
    class(out) <- "logLik"
    out
}

Try the DCchoice package in your browser