R/BIC.ibr.R

In ibr: Iterative Bias Reduction

Defines functions BIC.ibr

Documented in BIC.ibr

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

Try the ibr package in your browser