Nothing
calculateProb <-
function(p, r, x){return(exp(lgamma(r+x)-lgamma(x+1)-lgamma(r)+x*log(p)+r*log(1-p)))}
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.