Nothing
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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.