R/extractAIC_mle.r

setMethod("extractAIC",
    signature(fit = "mle"),
    function (fit, scale, k = 2, ...) 
    {
 	   res <- logLik(fit)
 	   edf <- attr(res, "df")
	    c(edf, -2 * res + k * edf)
    }

)

Try the NHPoisson package in your browser

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

NHPoisson documentation built on Feb. 19, 2020, 5:07 p.m.