Nothing
ordmps<-function(ord.dat) {
ord.mps<-lapply(ord.dat, function(x) {
mps<-as.data.frame(table(x)/sum(table(x)))
ord.p<-mps$Freq
names(ord.p)<-as.character(mps$x)
out<-list(dat=x, mps=ord.p)
return(out)
})
return(ord.mps)
}
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.