Nothing
NDistDens<-function(x, dist, p1, p2)
{
switch(dist,
normixt = dnorMix(x, p1),
exponential = dexp(x, p1),
lnorm = dlnorm(x, p1, p2),
weibull = dweibull(x, p1, p2),
normal = dnorm(x, p1, p2)
)
}
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.