tests/testthat/test-brms-trial.R

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

.runThisTest <- Sys.getenv("RunAllggeffectsTests") == "yes"

if (.runThisTest &&
  suppressWarnings(
    require("testthat") &&
    require("brms") &&
    require("ggeffects") &&
    require("insight")
  )) {
  m1 <- insight::download_model("brms_mixed_6")
  m2 <- insight::download_model("brms_mv_4")
  m3 <- insight::download_model("brms_2")

  test_that("ggpredict, brms-trial", {
    ggpredict(m1, c("Base", "Trt"))
    ggpredict(m2, "Species")
    ggpredict(m3, c("treat", "c2"))
  })
}