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)
}

Try the Dark package in your browser

Any scripts or data that you put into this service are public.

Dark documentation built on May 2, 2019, 5:15 a.m.