tests/testthat/test-rateFactory.R

test_that("rateFactory returns proper values", {
  expect_equal(rateFactory(list(gamma = 1, lambda_0 = 1))(t = c(0,0.25,0.5,1)), c(2,1.5,1,2))
})
blebedenko/impatience documentation built on March 28, 2022, 12:04 a.m.