Nothing
test_that("collapse_chains", {
x <- subset(mcmcr::mcmcr_example, iters = 1:3)
expect_s3_class(collapse_chains(coda::as.mcmc.list(x)), "mcmc.list")
expect_identical(nchains(collapse_chains(as.mcmc.list(mcmcr_example))), 1L)
expect_identical(nchains(collapse_chains(mcmcr_example)), 1L)
expect_identical(nchains(collapse_chains(mcmcr_example2)), 1L)
})
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.