Nothing
dpareto2 <-
function(x, scale = 1, shape = 1)
{
d <- (shape*scale^shape)/((x + scale)^(shape + 1))
d[x <= 0] <- 0
d
}
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.