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 Sept. 11, 2023, 3:04 a.m.