diff --git a/tests/testthat/test-boundsPredprob.R b/tests/testthat/test-boundsPredprob.R index 8de932ad..5d02f362 100644 --- a/tests/testthat/test-boundsPredprob.R +++ b/tests/testthat/test-boundsPredprob.R @@ -92,11 +92,11 @@ test_that("boundsPredprob with Beta Mixture Priors give correct results", { expect_equal(result$xL, c(2, 6)) expect_equal(result$pL, c(0.2, 0.3)) expect_equal(result$predL, c(0.0409, 0)) - expect_equal(result$postL, c(0.367, 0.7734)) + expect_equal(result$postL, c(0.27410, 0.69650)) expect_equal(result$UciL, c(0.5069, 0.5078)) expect_equal(result$xU, c(6, 7)) expect_equal(result$pU, c(0.6, 0.35)) expect_equal(result$predU, c(0.9859, 1)) - expect_equal(result$postU, c(0.9875, 0.8919)) + expect_equal(result$postU, c(0.97480, 0.840)) expect_equal(result$LciU, c(0.3035, 0.1773)) })