R/aic.R

Defines functions nesmr_aic

#' @export
nesmr_aic <- function(fit, ...) {
  if ("B_template" %in% names(fit)) {
    -2 * log_py(fit, ...) + 2 * sum(fit$B_template)
  }
}
jean997/mrScan documentation built on Dec. 20, 2024, 3:39 a.m.