Nothing
ocv <- function(mod){ # leave-one-out cross-validation
y <- mod$model[,1]
b <- coef(mod)
A <- hatvalues(mod)
ocv <- mean((y-fitted(mod))^2/(1-A)^2)
return(ocv)
}
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.