tests/testthat/test-parameters.R

In poissonconsulting/mcmcr: Manipulate MCMC Samples

test_that("parameters.mcmcr", {
  rlang::local_options(lifecycle_verbosity = "quiet")
  lifecycle::expect_deprecated(parameters(mcmcr::mcmcr_example))
  expect_identical(parameters(mcmcr::mcmcr_example), c("alpha", "beta", "sigma"))
  expect_identical(parameters(mcmcr::mcmcr_example, scalar = TRUE), c("sigma"))
  expect_identical(parameters(mcmcr::mcmcr_example, scalar = FALSE), c("alpha", "beta"))
  parameters(mcmcr_example) <- c("alpha1", "alpha2", "alpha3")
  expect_identical(parameters(mcmcr_example), c("alpha1", "alpha2", "alpha3"))
})

test_that("parameters.mcmcrs", {
  rlang::local_options(lifecycle_verbosity = "quiet")
  mcmcrs <- mcmcrs(mcmcr::mcmcr_example, mcmcr::mcmcr_example)
  lifecycle::expect_deprecated(parameters(mcmcrs))
  expect_identical(parameters(mcmcrs), c("alpha", "beta", "sigma"))
  expect_identical(parameters(mcmcrs, scalar = TRUE), c("sigma"))
  expect_identical(parameters(mcmcrs, scalar = FALSE), c("alpha", "beta"))
  parameters(mcmcrs) <- c("alpha1", "alpha2", "alpha3")
  expect_identical(parameters(mcmcrs), c("alpha1", "alpha2", "alpha3"))
})