tests/testthat/test-other-ptweedie.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(
    ptweedie_inversion( seq(1, 5, length = 100), mu = 1, phi = 1, power = 1.1, verbose = FALSE)  
  )
  expect_no_error(
    ptweedie_inversion(0.01, mu = 5, phi = 0.01, power = 1.01, verbose=FALSE)  
  )
  expect_no_error(
    ptweedie_inversion(0.005005, mu = 1, phi = 1, power = 3, verbose=FALSE)  
  )
  expect_no_error(
    ptweedie_inversion(0.095095, mu = 1, phi = 1, power = 4.5, verbose=FALSE) 
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 0.01, phi = 0.01, power = 6, verbose=FALSE)
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 5, phi = 0.01, power = 6, verbose=FALSE) 
  )
  expect_no_error(
    ptweedie_inversion(0.075075, mu = 1, phi = 1, power = 4.5, verbose=FALSE)  
  )
  expect_no_error(
    ptweedie_inversion(0.001, power = 6, mu = 0.01, phi = 0.01)  
  )
  expect_no_error(
   ptweedie_inversion(0.001, phi = 10, p = 1.01, mu = 5)
  )
  expect_no_error(
    ptweedie_inversion(0.001, mu = 1, phi = 0.01, p = 1.01)
  )
  expect_no_error(
    ptweedie_inversion(50, mu = 1.4, phi = 0.74, power = 3) 
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 2.5)
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 1.5)
  )
  expect_no_error(
    ptweedie_inversion(1.25, mu = 0.74, phi = 1.4, power = 3)
  )
  expect_no_error(
    ptweedie_inversion(0.3, mu = 2, phi = 1, power = 3.5)
  )
  expect_no_error(
    ptweedie(q = 7.709933e-308, mu = 10.17691, phi = 4.55, power = 1.98)
  )
})