inst/tests/test-contingencyBF.R

context("contingencyBF")

test_that("contingencyBF works", {
  data <- matrix(c(3, 6, 4, 9), nrow=2)
  contingencyTableBF(data, sampleType='poisson')
  contingencyTableBF(data, sampleType='jointMulti', fixedMargin='rows')
  contingencyTableBF(data, sampleType='jointMulti', fixedMargin='cols')
  contingencyTableBF(data, sampleType='indepMulti', fixedMargin='rows')
  contingencyTableBF(data, sampleType='indepMulti', fixedMargin='cols')
  contingencyTableBF(data, sampleType='hypergeom')
})

Try the BayesFactor package in your browser

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

BayesFactor documentation built on March 7, 2026, 5:06 p.m.