R/AICc.R

Defines functions AICc

AICc <- function(model){
  
  k <- attr(logLik(model), "df")
  n <- nobs(model)
  aicc <- AIC(model) + 2 * k * (k + 1)/(n - k - 1)
  return(aicc)
  
}

Try the TPP package in your browser

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

TPP documentation built on Nov. 8, 2020, 5:55 p.m.