Nothing
lognormal <- function(data, sig)
{
n=length(data)
#ret = -n*log(pi)/2 -n*log(var(data))/2 - n/2
ret = -(sum( (data-mean(data) )^2 ))/(sig)
return(ret)
}
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.