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