tests/testthat/test-brms.R

In easystats/estimate: Estimation of Model-Based Predictions, Contrasts and Means

skip_on_os("windows")

test_that("estimate_means - brms", {
  skip_if_not_installed("brms")
  skip_if_not_installed("emmeans")
  model <- brms::brm(Sepal.Length ~ Species * Sepal.Width, data = iris, refresh = 0, iter = 1000)
  estim <- estimate_means(model)
  expect_equal(dim(estim), c(3, 5))
})

test_that("estimate_relation - brms", {
  skip_if_not_installed("brms")
  skip_if_not_installed("emmeans")
  model <- brms::brm(Sepal.Length ~ Species * Sepal.Width, data = iris, refresh = 0, iter = 1000)
  estim <- estimate_relation(model, preserve_range = FALSE)
  expect_equal(dim(estim), c(30, 6))

  # estim <- estimate_relation(model, preserve_range=FALSE, iterations = 10)
  # expect_equal(dim(estim), c(30, 6))
})

test_that("estimate_means - brms", {
  skip_if_not_installed("brms")
  skip_if_not_installed("emmeans")
  model <- brms::brm(Sepal.Length ~ Species * Sepal.Width, data = iris, refresh = 0, iter = 1000)
  estim <- estimate_slopes(model, at = "Species")
  expect_equal(dim(estim), c(3, 5))
})