R/AIC.f.R

AIC.f <- function (x, k = 2) 
{
    LL <- logLik(x)
    print(LL)

    -2 * as.numeric(LL) + k * attributes(LL)$df
}
John-R-Wallace/R-ToolBox documentation built on April 22, 2024, 8:29 p.m.