tests/testthat/test-aibf.R

In pedro-teles-fonseca/polya: Bayesian Hypothesis Testing for Categorical Data

context("aibf")

test_that("aibf helpers", {
  expect_equal(
    aibf_multinomial_mts_2(austria_bl1, categories = 1:9, null_par = theta_benford(1)),
    aibf_multinomial_mts(austria_bl1, categories = 1:9, null_par = theta_benford(1))
  )
})

test_that("aibf multinomial haldane w/ mts", {
  expect_equal(
    ibf(austria_bl1, categories = 1:9, null_par = theta_benford(1), haldane = TRUE, in_favour = "h1", method = "mts"),
    aibf_multinomial_mts(austria_bl1, categories = 1:9, null_par = theta_benford(1))
  )
})

test_that("aibf and gibf with mts", {
  expect_equal(
    ibf(austria_bl1, categories = 1:9, null_par = theta_benford(1), haldane = TRUE, type = "geometric", in_favour = "h1", method = "mts"),
    ibf(austria_bl1, categories = 1:9, null_par = theta_benford(1), haldane = TRUE, type = "arithmetic", in_favour = "h1", method = "mts")
  )
})