Nothing
R2 <- function(model) {
if (!any(class(model)=="lm")) stop("model must be class ``lm'' or ``glm''")
yhat <- fitted(model)
ehat <- residuals(model)
y <- yhat + ehat
cor(yhat,y)^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.