Nothing
lossdiw <-
function(x, par, eps=0.0001, nmax=1000)
{
E<-Ediweibull(par[1],par[2],eps=eps, nmax=nmax)
EX<-E[[1]]
EX2<-E[[2]]
(mean(x)-EX)^2+(mean(x^2)-EX2)^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.