tests/testthat/test-coef.R

test_that("coef", {
  coef <- coef(mcmc_data_example, simplify = TRUE)
  expect_is(coef, "tbl_df")
  expect_identical(colnames(coef), c("homeworld", "species", "films", "estimate", "lower", "upper", "svalue"))
  expect_identical(coef$species, c("Human", "Droid"))
})
poissonconsulting/mcmcdata documentation built on June 5, 2023, 8:38 a.m.