tests/testthat/test-create_tipmap_data.R

test_that("return tipping point data", {
  tip_dat <- create_tipmap_data(
    new_trial_data = create_new_trial_data(30, 1.4, 2.0),
    posterior = load_tipmap_data("tipPost.rds"),
    map_prior = load_tipmap_data("tipmapPrior.rds")
  )
  expect_equal(tip_dat, load_tipmap_data("tipdat.rds"))
})

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.