Nothing
lossdw <-
function(par,x,zero=FALSE,eps=0.0001, nmax=1000)
{(mean(x)-Edweibull(par[1],par[2],zero=zero,eps=eps,nmax=nmax))^2+(mean(x^2)-E2dweibull(par[1],par[2],zero=zero,eps=eps,nmax=nmax))^2}
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.