tests/testthat/test-get_tipping_points.R

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)
  )
})

Try the tipmap package in your browser

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

tipmap documentation built on Dec. 8, 2022, 1:13 a.m.