Nothing
loss <-
function(par,x)
{
p <- par[1]
q <- par[2]
M <- Edlaplace2(p, q)
(mean(x)-M$E1)^2+(mean(x^2)-M$E2)^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.