R/loss.R

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
}

Try the DiscreteLaplace package in your browser

Any scripts or data that you put into this service are public.

DiscreteLaplace documentation built on May 2, 2019, 5:52 a.m.