Nothing
igamma <- function (s, u, log = FALSE) {
robj <- pgamma(u, shape = s, rate = 1, log.p = TRUE) + lgamma(s)
if (!log) robj <- exp(robj)
robj
}
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.