Nothing
dmix.dexp <-
function(x, means = 0)
{
f1 <- x * 0
nm <- length(means)
for(m in means) {
xx <- x + m
f1 <- f1 + (exp( - xx) * (xx > 0) + exp(xx) * (xx < 0))/
nm
}
f1
}
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.