R/AICc.R

#' @export 

AICc <- function(obj) {
  N <- length(obj$time)
  P <- obj$Pn
  SSE <- obj$val
  AIC <- N * log(SSE / N) + 2 * P
  AIC + (2 * P * (P + 1)) / (N - P - 1)
}
emkayoh/Dark documentation built on May 16, 2019, 5:09 a.m.