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"))
})

Try the mcmcr package in your browser

Any scripts or data that you put into this service are public.

mcmcr documentation built on Sept. 7, 2021, 1:07 a.m.