tests/testthat/test-other-dtweedie.R

In tweedie: Evaluation of Tweedie Exponential Family Models

test_that("No common errors", {
  # These are situations that had caused errors in the past that 
  # I have (hopefully) now fixed
  expect_no_error(
    dtweedie_inversion(power=1.5, mu=1, phi=0.5513086, y=0.5557088)
  )
  expect_no_error(
    dtweedie(power=1.5, mu=1, phi=0.5513086, y=c(0, 1, 2) )
  )
})