Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.