Nothing
rdirichlet=function(n, shape){
#Dirichlet generator
d = length(shape)
x = rgamma(n*d, rep(shape, n))
x = matrix(x, nrow = d)
t(sweep(x, 2, apply(x, 2, sum), "/"))
}
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.