Nothing
test_that('test sample l moments', {
expect_equal(lmom(rnorm(10000,
mean = 2,
sd = 1)),
c(l1 = 2.01,
l2 = 0.55,
l3 = 0.00,
l4 = 0.12),
tolerance = .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.