Nothing
Zsamp <-
function(prob, counts)
{
G<-ncol(prob);z<-array(0,dim(prob), dimnames=list(NULL,1:G))
for(n in 1:nrow(prob)){
tab<-table(sample(1:G, counts[n], replace=TRUE, prob[n,]));z[n,names(tab)]<-tab}
z
}
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.