tests/testthat/test-split-chains.R

In mcmcr: Manipulate MCMC Samples

test_that("split_chains.mcmcarray", {
  x <- split_chains(mcmcr_example[[2]])
  expect_s3_class(x, "mcmcarray")
  expect_identical(nchains(x), 4L)
  expect_identical(nsims(x), nsims(mcmcr_example[[2]]))
})

test_that("split_chains 1 iterations", {
  x <- subset(mcmcr_example, iters = 1L)
  expect_error(split_chains(x), "^`x` must have at least two iterations[.]$",
    class = "chk_error"
  )
  x <- subset(mcmcr_example, iters = 1:2)
  x <- split_chains(x)
  expect_identical(nchains(x), 4L)
  expect_identical(nsims(x), 4L)
})

test_that("collapse_chains.mcmcr", {
  x <- split_chains(mcmcr_example)
  expect_s3_class(x, "mcmcr")
  expect_identical(nchains(x), 4L)
  expect_identical(nsims(x), nsims(mcmcr_example))
})

test_that("collapse_chains.mcmcr2", {
  x <- split_chains(mcmcr_example2)
  expect_s3_class(x, "mcmcr")
  expect_identical(nchains(x), 4L)
  expect_identical(nsims(x), nsims(mcmcr_example2))
})