reduce tests runtime

insightsengineering · Mar 7, 2024 · da35604 · da35604
1 parent 93a103b
commit da35604
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -2,5 +2,6 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 surv_prob <- function(k, h) {
-  .Call(`_shrinkforest_surv_prob`, k, h)
+    .Call(`_shrinkforest_surv_prob`, k, h)
 }
+
diff --git a/tests/testthat/test-horseshoe.R b/tests/testthat/test-horseshoe.R
@@ -29,7 +29,7 @@ test_that("horseshoe outputs the right elements for survival", {
     family = brms::brmsfamily("cox", bhaz = bhaz),
     brms::prior(normal(0, 5), class = "b", nlpar = "a") +
       brms::prior(horseshoe(1), class = "b", nlpar = "b"),
-    iter = 2000, warmup = 1000, chains = 1,
+    iter = 20, warmup = 10, chains = 1,
     control = list(adapt_delta = 0.95), seed = 0
   ))
   expected <- list(
@@ -68,7 +68,7 @@ test_that("horseshoe outputs the right elements for binary", {
     data = data_model, family = brms::brmsfamily("bernoulli"),
     brms::prior(normal(0, 5), class = "b", nlpar = "a") +
       brms::prior(horseshoe(1), class = "b", nlpar = "b"),
-    iter = 2000, warmup = 1000, chains = 1,
+    iter = 20, warmup = 10, chains = 1,
     control = list(adapt_delta = 0.95), seed = 0
   ))
   expected <- list(