AIC.f <- function (x, k = 2) { LL <- logLik(x) print(LL) -2 * as.numeric(LL) + k * attributes(LL)$df }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.