tests/testthat/test_bandit4arm_lapse.R

In hBayesDM: Hierarchical Bayesian Modeling of Decision-Making Tasks

context("Test bandit4arm_lapse")
library(hBayesDM)

test_that("Test bandit4arm_lapse", {
  # Do not run this test on CRAN
  skip_on_cran()

  expect_output(bandit4arm_lapse(
      data = "example", niter = 10, nwarmup = 5, nchain = 1, ncore = 1))
})