tests/testthat/test-brms-trial.R

In strengejacke/ggeffects: Create Tidy Data Frames of Marginal Effects for 'ggplot' from Model Outputs

skip_on_cran()
skip_on_os(c("mac", "solaris"))
skip_if_not_installed("brms")

test_that("ggpredict, brms-trial", {
  m1 <- suppressWarnings(insight::download_model("brms_mixed_6"))
  m2 <- insight::download_model("brms_mv_4")
  m3 <- insight::download_model("brms_2")

  skip_if(is.null(m1) || is.null(m2) || is.null(m3))
  suppressWarnings(ggpredict(m1, c("Base", "Trt"), verbose = FALSE))
  expect_message(
    ggpredict(m2, "Species"),
    regex = "Back-transforming"
  )
  ggpredict(m3, c("treat", "c2"))
})