tests/testthat/test-credible_prep.R

test_that("Check output for credible_lrep", {
  result <- credible_prep(exres)
  expect_s3_class(result, 'data.frame')
})

test_that("Check error for wrong params for credible_prep", {
  expect_error(credible_prep(exres, params = 'abc'))
})

Try the EBASE package in your browser

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

EBASE documentation built on Sept. 26, 2024, 1:08 a.m.