Nothing
mysort<-function(x)
{
# Sorts rows and cols of incoming dataframe x into/
# an order for which it is easier to write the likelihood function
nvars<-ncol(x)
powers<-as.integer(2^((nvars-1):0))
binrep<-ifelse(is.na(x),0,1)
decrep<-binrep %*% powers
sorted<-x[order(decrep),]
decrep<-decrep[order(decrep)]
list(sorted.data=sorted, freq=as.vector(table(decrep)))
}
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.