tests/testthat/test-slice.R

test_that("slice", {
  expect_identical(slice(mcmc_data_example), mcmc_data_example)
  
  slice1 <- slice(mcmc_data_example, 1)
  expect_identical(slice1$data$species, "Human")
  slice1 <- slice(mcmc_data_example, c(2,n()))
  expect_identical(slice1$data$species, c("Droid", "Droid"))
})
poissonconsulting/mcmcdata documentation built on June 5, 2023, 8:38 a.m.