Nothing
Mode<-function(x){
x<-na.omit(x)
step1<-as.factor(x)
m<-summary(step1)
m1<-which(m==max(m))
if(all(m==1)) print("No mode")
else
as.numeric(names(m1))}
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.