Nothing
pelnorm <-
function (e, meanlog = 0, sdlog = 1)
{
u = exp(meanlog + 0.5 * sdlog^2) * (1 - pnorm((meanlog +
sdlog^2 - log(e))/sdlog)) - e * plnorm(e, meanlog, sdlog)
asy = u/(2 * u + e - exp(meanlog + 0.5 * sdlog^2))
return(asy)
}
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.