Nothing
R2CV <- function(model){
if (!any(class(model)=="lm")) stop("model must be class ``lm'' or ``glm''")
yhat <- fitted(model)
ehat <- residuals(model)
y <- yhat + ehat
hi <- influence(model)$hat
yhatcve <- (yhat-hi*y)/(1-hi)
cor(y,yhatcve)^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.