Nothing
# aus e1071
countpattern2<-function (x)
{
intpatt<-apply(as.matrix(x),1,bin2int)
intpatt<-intpatt+1
pat<-tabulate(intpatt,nbins=2^ncol(as.matrix(x)))
pat
}
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.