tests/testthat/test-get_tipping_points.R

In tipmap: Tipping Point Analysis for Bayesian Dynamic Borrowing

test_that("return tipping point", {
  expect_equal(
    unname(get_tipping_points(
      tipmap_data = load_tipmap_data("tipdat.rds"),
      quantile = c(0.025, 0.05, 0.1, 0.2)
    )),
    c(0.750, 0.475, 0.220, 0.040)
  )
})