tests/testthat/test-combine-dimensions.R

In mcmcr: Manipulate MCMC Samples

test_that("combine_dimensions.mcmcarray", {
  expect_identical(pdims(combine_dimensions(mcmcr_example$beta)), c(2L))
  expect_identical(pdims(combine_dimensions(mcmcr_example$beta, along = 1L)), c(2L))
  expect_error(combine_dimensions(mcmcr_example$beta, along = 0L), "^`along` must be between 1 and 2, not 0[.]$", class = "chk_error")
  expect_error(combine_dimensions(mcmcr_example$beta, along = 3L), "^`along` must be between 1 and 2, not 3[.]$", class = "chk_error")
  expect_identical(pdims(combine_dimensions(mcmcr_example$alpha)), 1L)
  expect_identical(pdims(combine_dimensions(mcmcr_example$sigma)), 1L)
  expect_identical(pdims(combine_dimensions(mcmcr_example2$sigma, along = 1L)), c(1L, 1L))
  expect_equal(combine_dimensions(bind_dimensions(mcmcr_example2$beta, mcmcr_example2$beta)), mcmcr_example2$beta, ignore_attr = FALSE)
})

test_that("combine_dimensions.mcmcr", {
  expect_equal(combine_dimensions(bind_dimensions_n(mcmcr_example, mcmcr_example, mcmcr_example)),
    mcmcr_example,
    ignore_attr = FALSE
  )
  expect_equal(combine_dimensions(bind_dimensions_n(mcmcr_example2, mcmcr_example2, mcmcr_example2)),
    mcmcr_example2,
    ignore_attr = FALSE
  )
})