powered by
loss(par, x)
p
q
estdlaplace2
Edlaplace2
p <- 0.3 q <- 0.7 x <- rdlaplace2(n=100, p, q) par <- estdlaplace2(x, "M") loss(par, x) # should be near zero loss(c(p,q), x) # may be far greater than zero
Run the code above in your browser using DataLab