Nothing
dtppxg <- function(x, alpha = 1, theta = 1) {
part1 <- theta^2 / ((alpha + theta) * (1 + theta)^(x + 3))
part2 <- (1 + theta)^2 + alpha * theta * (x + 1) * (x + 2) / 2
part1 * part2
}
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.