R/logLik.StratSel.R

Defines functions logLik.StratSel

Documented in logLik.StratSel

logLik.StratSel <- function(object, ...) #UseMethod("logLik")
#print.logLik <- function(x, digits = getOption("digits"), ...)
{
	if(missing(digits)) digits = getOption("digits")
	x <- object
	ll <- x$logLik
    cat("'log Lik.' ", paste(format(c(ll), digits = digits), collapse = ", "),
        " (df=", length(coef(x)), ")\n", sep = "")
    invisible(x)
}

Try the StratSel package in your browser

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

StratSel documentation built on April 4, 2025, 12:27 a.m.