Also skip if missing 'gbm'

stan-dev · Jul 12, 2024 · bc05324 · bc05324
1 parent a5c3f6c
commit bc05324
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-rstar.R b/tests/testthat/test-rstar.R
@@ -29,6 +29,7 @@ test_that("rstar works with draws_df example", {
 
 test_that("rstar with uncertainty returns vectors of correct length", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("gbm")
   x <- example_draws()
   val <- rstar(x, method = "gbm", uncertainty = T, verbose = F)
   expect_equal(length(val), 1000)
@@ -45,13 +46,15 @@ test_that("incorrect nsimulations values throws error", {
 
 test_that("rstar with uncertainty returns reasonable values", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("gbm")
   x <- example_draws()
   val <- rstar(x, method = "gbm", uncertainty = T, verbose = F)
   expect_true(max(val) > 0.3 & min(val) < 10)
 })
 
 test_that("rstar accepts different classifiers", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("gbm")
   x <- example_draws()
   val <- rstar(x, method = "gbm", verbose=F)
   expect_true(is.numeric(val))
@@ -61,6 +64,7 @@ test_that("rstar accepts different classifiers", {
 
 test_that("rstar accepts different hyperparameters", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("gbm")
   x <- example_draws()
 
   # use fast hyperparameters