Nothing
dsimplex <-
function (x, mu, sig) {
dxmu <- (x-mu)^2/(x*(1-x)*mu^2*(1-mu)^2)
return(1/sqrt(2*pi*sig^2*(x*(1-x))^3)*exp(-1/2/sig^2*dxmu))
}
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.