tests/testthat/test-effective_sample.R

In DominiqueMakowski/bayestestR: Understand and Describe Bayesian Models and Posterior Distributions

test_that("effective_sample", {
  skip_if_offline()
  skip_if_not_or_load_if_installed("rstanarm")
  skip_if_not_or_load_if_installed("brms")
  skip_if_not_or_load_if_installed("rstan")

  brms_1 <- insight::download_model("brms_1")
  res <- effective_sample(brms_1)
  expect_equal(
    res,
    data.frame(
      Parameter = c("b_Intercept", "b_wt", "b_cyl"),
      ESS = c(5242, 2071, 1951),
      stringsAsFactors = F
    )
  )

  brms_null_1 <- insight::download_model("brms_null_1")
  res <- effective_sample(brms_null_1)
  expect_equal(
    res,
    data.frame(
      Parameter = c("b_Intercept"),
      ESS = c(2888),
      stringsAsFactors = F
    )
  )

  brms_null_2 <- insight::download_model("brms_null_2")
  res <- effective_sample(brms_null_2)
  expect_equal(
    res,
    data.frame(
      Parameter = c("b_Intercept"),
      ESS = c(1059),
      stringsAsFactors = F
    )
  )
})