tests/testthat/test-assertions.R

test_that("erroneous input throws", {
  x <- rbind(c(0, 1), c(1, 1), c(1, 0), c(0, 0))

  expect_error(poi(x, precision = c(1, 0.5)))
  expect_error(poi(x, precision = "f"))
})

Try the polylabelr package in your browser

Any scripts or data that you put into this service are public.

polylabelr documentation built on April 4, 2025, 1:50 a.m.