Nothing
`rgg` <-
function(m, alpha, beta, n)
{
# Generation of a m Gamma-gamma variables i.i.d
l <- 1/beta * rgamma(m, alpha)
1/l * rgamma(m, n)
}
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.