tests/testthat/test-throws-NegativeValues.R

test_that("throws when values are negative", {
  te <- c(-2, 2)
  tt <- c(-1, 1)
  ce <- c(-5, 5)
  ct <- c(-2, 2)
  expect_error(rema(te, tt, ce, ct), neg.num.err)
})

Try the rema package in your browser

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

rema documentation built on Oct. 29, 2021, 1:07 a.m.