Nothing
PRESS <- function(LinearModel) {
return(sum((residuals(LinearModel)/(1 - lm.influence(LinearModel)$hat))^2))
}
PredRSquared <- function(LinearModel) {
TSS <- sum(anova(LinearModel)$"Sum Sq")
return(1 - PRESS(LinearModel)/TSS)
}
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.