Nothing
`modeDist` <-
function(x,num=TRUE){
tab<-table(x)
out<-names(tab)[tab==max(tab)]
if(length(out)>1)
out<-sample(out,1)
if(num)
out<-as.numeric(out)
out
}
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.