chore: remove tests that require brms and also brms dependency in Suggests

Author: Florence Bockting

DESCRIPTION

@@ -11,8 +11,8 @@ Authors@R: c(person("Jonah", "Gabry", role = c("aut", "cre"), email = "jgabry@gm
              person("Frank", "Weber", role = "ctb"),
              person("Eduardo", "Coronado Sroka", role = "ctb"),
              person("Teemu", "Sailynoja", role = "ctb"),
-             person("Aki", "Vehtari", role = "ctb"), 
-             person("Behram", "Ulukır", role = "ctb"), 
+             person("Aki", "Vehtari", role = "ctb"),
+             person("Behram", "Ulukır", role = "ctb"),
              person("Visruth", "Srimath Kandali", role = "ctb"),
              person("Mattan S.", "Ben-Shachar", role = "ctb"))
 Maintainer: Jonah Gabry <jgabry@gmail.com>
@@ -45,7 +45,6 @@ Imports:
     tidyselect,
     utils
 Suggests:
-    brms (>= 2.23.0),
     cmdstanr,
     ggdist,
     ggfortify,

tests/testthat/test-ppc-distributions.R

@@ -941,34 +941,4 @@ testthat::test_that("ppc_pit_ecdf takes correct PIT computation branch", {
     ),
     regexp = "\\[PIT BRANCH\\] Pre-supplied PIT"
   )
-})
-
-test_that("ppc_pit_ecdf works with pareto_pit method", {
-  skip_on_cran()
-  skip_if_not_installed("brms")
-  skip_if_not_installed("rstanarm")
-
-  data("roaches", package = "rstanarm")
-  roaches$sqrt_roach1 <- sqrt(roaches$roach1)
-
-  fit_p <- brms::brm(y ~ sqrt_roach1 + treatment + senior + offset(log(exposure2)),
-             data = roaches,
-             family = poisson,
-             prior = brms::prior(normal(0, 1), class = b),
-             refresh = 0)
-
-  fit_p <- brms::add_criterion(fit_p, criterion = "loo")
-  fit_p <- brms::add_criterion(fit_p, criterion = "loo", moment_match = TRUE, overwrite = TRUE)
-  fit_nb <- update(fit_p, family = brms::negbinomial)
-
-  expect_gg(brms::pp_check(fit_nb, type = "pit_ecdf"))
-
-  draws <- brms::posterior_predict(fit_nb)
-  y <- roaches$y
-
-  expect_gg(ppc_pit_ecdf(
-    y = y, yrep = draws, method = "correlated"
-  ))
-
-  expect_gg(brms::pp_check(fit_nb, type = "pit_ecdf", method = "correlated"))
 })

tests/testthat/test-ppc-loo.R

@@ -341,40 +341,6 @@ test_that("error if subset is bigger than num obs", {
   )
 })
 
-test_that("ppc_loo_pit_ecdf works with pareto_pit method", {
-  skip_on_cran()
-  skip_if_not_installed("brms")
-  skip_if_not_installed("rstanarm")
-
-  data("roaches", package = "rstanarm")
-  roaches$sqrt_roach1 <- sqrt(roaches$roach1)
-
-  fit_zinb <-
-  brms::brm(brms::bf(y ~ sqrt_roach1 + treatment + senior + offset(log(exposure2)),
-         zi ~ sqrt_roach1 + treatment + senior + offset(log(exposure2))),
-      family = brms::zero_inflated_negbinomial(), data = roaches,
-      prior = c(brms::prior(normal(0, 1), class = "b"),
-                brms::prior(normal(0, 1), class = "b", dpar = "zi"),
-                brms::prior(normal(0, 1), class = "Intercept", dpar = "zi")),
-      seed = 1704009, refresh = 1000)
-
-  fit_zinb <- brms::add_criterion(fit_zinb, criterion = "loo", save_psis = TRUE)
-  fit_zinb <- brms::add_criterion(fit_zinb, criterion = "loo", save_psis = TRUE,
-  moment_match = TRUE, overwrite = TRUE)
-
-  draws <- brms::posterior_predict(fit_zinb)
-  psis_object <- brms::loo(fit_zinb, save_psis = TRUE)$psis_object
-  y <- roaches$y
-
-  expect_gg(ppc_loo_pit_ecdf(
-    y = y, yrep = draws, psis_object = psis_object, method = "correlated"
-  ))
-
-  expect_gg(brms::pp_check(
-    fit_zinb, type = "loo_pit_ecdf", moment_match = TRUE, method = "correlated"
-  ))
-})
-
 
 # Visual tests ------------------------------------------------------------
 
@@ -929,5 +895,4 @@ test_that("check pareto_pit argument is chosen as expected", {
     ),
     regexp = "`pareto_pit = TRUE` cannot be used together with a non-`NULL`"
   )
-})
-
+})