tests/testthat/test-borel.r

In sbfnk/bpmodels: Simulating and Analysing Transmission Chain Statistics using Branching Process Models

test_that("We can calculate probabilities and sample", {
  expect_gt(dborel(1, 0.5), 0)
  expect_identical(dborel(1, 0.5, log = TRUE), -0.5)
  expect_length(rborel(2, 0.9), 2)
})

test_that("Errors are thrown", {
  expect_error(
    dborel(x = 0, mu = 0.5),
    "is not >= 1"
  )
  expect_error(
    dborel(x = 1, mu = -0.5),
    "is not >= 0"
  )
  expect_error(
    dborel(x = 1, mu = Inf),
    "Must be finite"
  )
  expect_error(
    rborel(n = 0, mu = -0.5),
    "is not >= 1"
  )
  expect_error(
    rborel(n = 0, mu = Inf),
    "is not >= 1"
  )
})