Nothing
see<-
function(true,pred) {
if(length(true)!=length(pred)) stop("Length of 'true' must equal 'pred'")
res<-true-pred
sum.sq<-sum(res^2)
see<-sqrt(sum.sq/length(true))
return(see)
}
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.