tests/testthat/test_rtexp.r

In simDAG: Simulate Data from a (Time-Dependent) Causal DAG

test_that("always above l", {
  set.seed(231234)
  values <- rtexp(n=1000000, rate=0.001, l=500)
  expect_true(all(values > 500))
})

test_that("works if l is not specified", {
  values <- rtexp(n=10000, rate=1.2)
  expect_true(all(values > 0))
})