tests/testthat/test-pdims.R

In mcmcr: Manipulate MCMC Samples

test_that("pdims", {
  expect_identical(
    pdims(mcmcr_example2),
    list(alpha = c(2L, 1L, 1L), beta = c(2L, 2L, 2L), sigma = c(1L, 1L, 1L))
  )
  expect_identical(
    pdims(mcmcr_example),
    list(alpha = 2L, beta = c(2L, 2L), sigma = 1L)
  )
  expect_identical(pdims(mcmcr_example[[1]]), 2L)
  expect_identical(pdims(mcmcr_example2[[1]]), c(2L, 1L, 1L))
  expect_identical(
    pdims(as_term(as.mcmc.list(mcmcr_example[[1]])[[1]])),
    list(parameter = 2L)
  )
  expect_identical(
    pdims(as.mcmc.list(mcmcr_example[[1]])[[1]]),
    list(parameter = 2L)
  )
  expect_identical(
    pdims(as.mcmc.list(mcmcr_example[[1]])),
    list(parameter = 2L)
  )
})