tests/testthat/test-rand.R

library(chenreg)
set.seed(42)
rand_chen1 <- chenreg::rchen(500, 0.5, 1, 0.9)
rand_chen2 <- chenreg::rchen(500, 0.2, 0.5, 0.2)
test_that("assymetric", {
  expect_true(mean(rand_chen1) > median(rand_chen1))
  expect_true(mean(rand_chen2) > median(rand_chen2))
})
AlissonRP/chenReg documentation built on July 20, 2023, 4:50 a.m.