From da35604a8f54efb6b1fac6f2bb492a00dbdb7f5c Mon Sep 17 00:00:00 2001 From: Daniel Sabanes Bove Date: Thu, 7 Mar 2024 17:07:21 +0100 Subject: [PATCH] reduce tests runtime --- R/RcppExports.R | 3 ++- tests/testthat/test-horseshoe.R | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/R/RcppExports.R b/R/RcppExports.R index b45c8b57..77ebb620 100644 --- 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 index af608f1c..0a938e28 100644 --- 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(