Nothing
dgp <- function(y, theta, lambda, logged = TRUE) {
den <- log( theta ) + (y - 1) * log( theta + lambda * y ) - theta -
y * lambda - lgamma(y + 1)
if ( !logged ) den <- exp(den)
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.