Nothing
stan.error<-function(x){
n<-nrow(as.matrix(x))
sqrt(((n*(n-1))^-1)*sum((x-mean(x))^2))}
stan.error.sq<-function(x){
n<-nrow(as.matrix(x))
((n*(n-1))^-1)*sum((x-mean(x))^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.