#' @export
nesmr_aic <- function(fit, ...) {
if ("B_template" %in% names(fit)) {
-2 * log_py(fit, ...) + 2 * sum(fit$B_template)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.