R/BIC.f.R

BIC.f <- function (x) 
{
    LL <- logLik(x)
    cat("\n")
    printf(LL)
    cat("\n")
    -2 * as.numeric(LL) + attributes(LL)$df * log(nrow(x$data))
}
John-R-Wallace/JRWToolBox documentation built on April 15, 2024, 2:16 p.m.