R/GCV.ibr.R

In ibr: Iterative Bias Reduction

Defines functions AICc.ibr GCV.ibr GCV AICc

Documented in AICc AICc.ibr GCV GCV.ibr

AICc <- function(object, ...) UseMethod("AICc")
GCV <- function(object, ...) UseMethod("GCV")

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

Try the ibr package in your browser