tests/testthat/test_l_moments.R

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)

})

Try the CoSMoS package in your browser

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

CoSMoS documentation built on May 30, 2021, 1:06 a.m.