inst/tests/test-anovaBF.R

context("anovaBF")

test_that("Puzzles example works", {
  data(puzzles)

  bf = anovaBF(RT ~ shape*color + ID, data = puzzles, whichRandom = "ID",
               iterations=1000, progress = FALSE)

  expect_that(bf, is_a("BFBayesFactor"))
  expect_that(length(bf), is_equivalent_to(4))
})

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.