Nothing
dgbeta <-
function (x, shape1, shape2, d = 1, log = FALSE) {
den <- lbeta(shape1, shape2) + (shape1 + shape2 - 1) * log(d)
num <- (shape1 - 1) * log(x) + (shape2 - 1) * log(d - x)
if (log) num - den else exp(num - den)
}
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.