R/logLik.R

Defines functions logLik.gamlss

#----------------------------------------------------------------------------------------
# this a generic function for logLik for gamlss
# it should moved to gamlss extra
logLik.gamlss <- function(object, ...)
{
if (!is.gamlss(object))  stop(paste("This is not an gamlss object", "\n", ""))
  val <- -object$G.deviance/2 #sum(lik)
 attr(val, "nall") <- object$N
    attr(val, "nobs") <- object$noObs
    attr(val, "df") <- object$df.fit
    class(val) <- "logLik"
    val
}             

Try the gamlss package in your browser

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

gamlss documentation built on May 29, 2024, 6:08 a.m.