BIC.f <- function (x)
{
LL <- logLik(x)
cat("\n")
printf(LL)
cat("\n")
-2 * as.numeric(LL) + attributes(LL)$df * log(nrow(x$data))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.