w <-
2 * (loglik.laplace1(free.est, x) - loglik.laplace0(null.est, x))
w
1 - pchisq(w, df = 1) # p-value based on asymptotic distribution
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.