R/logLik.sbchoice.R

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

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

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