Nothing
Gamma.density <-
function(theta, gamma.par) {
theta <- mpfr(theta, 99)
y=(gamma.par^(gamma.par)*theta^(gamma.par-1)*exp(-(gamma.par*theta)))/(gamma(gamma.par))
return(asNumeric(y))
}
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.