Nothing
RMSE<-function(vect1,vect2,rows_no){
result=0
obs<-0
pred<-0
for(i in 1:rows_no){
result<-result +(vect1[i]-vect2[i])^2
}
result<-(result/rows_no)^0.5
return(result)
}
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.