tests/testthat/test-mcmcrs.R

test_that("mcmcrs", {
  mcmcrs <- mcmcrs(mcmcr_example, mcmcr_example)
  expect_identical(length(mcmcrs), 2L)
  expect_identical(names(mcmcrs), c("mcmcr1", "mcmcr2"))
  mcmcrs <- mcmcrs(mc1 = mcmcr_example, mc2 = mcmcr_example)
  expect_identical(names(mcmcrs), c("mc1", "mc2"))
})
poissonconsulting/mcmcr documentation built on Jan. 18, 2024, 1:11 a.m.