Nothing
`negloglik.laplace` <-
function (xpar, xx)
{
a <- xpar[2]
w <- wfromt(xpar[1], a = a)
loglik <- sum(log(1 + w * beta.laplace(xx, a)))
if (abs(loglik)==Inf){
loglik<-sign(loglik)*10^6
}
return(-loglik)
}
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.