Nothing
Rsquared <-
function(y.pre,y){
SSR = sum((y.pre-mean(y))^2)
SSE = sum((y-y.pre)^2)
R2 = SSR/(SSE+SSR)
return
R2
}
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.