R/AIC.ibr.R

In ibr: Iterative Bias Reduction

Defines functions AIC.ibr

Documented in AIC.ibr

AIC.ibr <- function(object, ..., k = 2) {
  r <- object$residuals
  n <- length(r)
  stderr <- sqrt(sum(r^2)/(n-object$finaldf))
  return(log(stderr^2)+2*object$finaldf/n)
}

Try the ibr package in your browser