tests/testthat/test-examples.R

In hlplab/MVBeliefUpdatr: Fitting, Summarizing, and Visualizing of Multivariate Gaussian Ideal Observers and Adaptors

context("make example objects")

test_that("creating examples", {
  expect_no_error(example_exemplar_model(1))
  expect_no_error(example_exemplar_model(2))
  expect_no_error(example_exemplar_model(3))
  expect_no_error(example_exemplar_model(4))
  expect_no_error(example_MVG_ideal_observer(1))
  expect_no_error(example_MVG_ideal_observer(2))
  expect_no_error(example_MVG_ideal_observer(3))
  expect_no_error(example_MVG_ideal_observer(4))
  expect_no_error(example_NIW_ideal_adaptor(1))
})