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-NOAA/JRWToolBox documentation built on Sept. 23, 2024, 1:16 a.m.