tests/testthat/test-posterior.R

test_that("posterior works", {

  posterior(LLR = 1) -> table

  expect_equal(table$prosecution_post_probs[2], 0.09174312)

  posterior(LLR = 4) -> table

  expect_equal(table$prosecution_post_probs[5], 0.99976672)

})

Try the idiolect package in your browser

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

idiolect documentation built on Sept. 11, 2024, 5:34 p.m.