tests/testthat/test-utils.R

test_that("stopping function works", {
  expect_equal(stopping(c(0.2, 4), 1), FALSE)
  expect_equal(stopping(c(0.2, 0.5), 1), TRUE)
})
franciscomartinezdelrio/DGLMExtPois documentation built on July 16, 2025, 11:13 p.m.