R/AICc.R

setMethod("AICc", signature(object="logLik"),
  function(object, ...) {
    -2 * c(object) + 2*attr(object, "df") * (attr(object, "nobs")/(attr(object, "nobs") - attr(object,"df") - 2) )
  }
)

setMethod("AICc", signature(object="ANY"),
          function(object, ...) AICc(object=logLik(object, ...)) )

Try the mcplR package in your browser

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

mcplR documentation built on May 31, 2017, 1:49 a.m.