Nothing
rmix.dexp <-
function(n, means = 0)
{
x <- logb(runif(n))
x <- x * sample(c(-1, 1), n, replace = TRUE)
xmeans <- if(length(means) > 1) sample(means, n, replace = TRUE) else
means
x + xmeans
}
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.