inst/tests/test-generalTestBF.R

context('generalTestBF')

data(puzzles)

test_that('generalTestBF works', {
  bf <- generalTestBF(RT ~ shape*color*ID, whichRandom="ID", data = puzzles)
  expect_that(bf, is_a("BFBayesFactor"))
  expect_that(length(bf), is_equivalent_to(18))
})

Try the BayesFactor package in your browser

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

BayesFactor documentation built on May 29, 2024, 3:09 a.m.