tests/testthat/test-create_test_ns_inference_model.R

test_that("use", {

  inference_model <- create_test_ns_inference_model()
  expect_true(beautier::is_inference_model(inference_model))
  expect_true(beautier::is_nested_sampling_mcmc(inference_model$mcmc))
})
ropensci/beautier documentation built on April 2, 2024, 5:01 a.m.