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'))
})
fawda123/EBASE documentation built on Sept. 29, 2024, 4:34 p.m.