Nothing
rtpxg <- function(n, alpha = 1, theta = 1) {
x <- numeric(n)
cond <- theta / (alpha + theta)
q <- Rfast2::Runif(n)
exp_ind <- q <= cond
size1 <- sum(exp_ind)
x[exp_ind] <- rexp(size1, theta)
x[!exp_ind] <- rgamma(n - size1, 3, 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.