R/aic.R

In efriedland/friedland: Making Functions Do Your Econometrics For You

Defines functions aic

Documented in aic

aic <-
function(model){
  n <- df.residual(model) + length(variable.names(model))
  log(sum(resid(model) ^ 2) / n) + (length(variable.names(model)) / n) * 2
}