tests/testthat/test-term.R

test_that("as.mcmcr with irregular names", {
  mcmcr <- subset(mcmcr::mcmcr_example, chains = 1L)
  mcmc <- coda::as.mcmc(mcmcr)
  colnames(mcmc) <- sub("alpha", "al.pha", colnames(mcmc))
  colnames(mcmc) <- sub("beta", "beta_", colnames(mcmc))
  expect_identical(coda::as.mcmc(as.mcmcr(mcmc)), mcmc)
})

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.