extended iters on some tests

ropensci · Apr 24, 2024 · 3b5f2eb · 3b5f2eb
1 parent 907c75e
commit 3b5f2eb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 9 deletions.
diff --git a/tests/testthat/test-jointModel.R b/tests/testthat/test-jointModel.R
@@ -621,8 +621,7 @@ test_that("jointModel parameter recovery tests work",{
   )
   # run model
   fit1 <- jointModel(data=data, cov=c('var_a','var_b'),
-                    multicore=FALSE, seed = 10, n.chain=1,
-                    n.iter.sample = 1000)
+                    multicore=FALSE, seed = 10, n.chain=1)
   # summary
   summary1 <- as.data.frame(rstan::summary(fit1$model,
                                            pars = c('mu','alpha','log_p10'),
@@ -734,8 +733,7 @@ test_that("jointModel parameter recovery tests work",{
   )
   # run model
   fit2 <- jointModel(data=data, cov=c('var_a','var_b'),
-                    multicore=FALSE, seed = 2,n.chain=1,
-                    n.iter.sample = 1000)
+                    multicore=FALSE, seed = 2, n.chain=1)
   # summary
   summary2 <- as.data.frame(rstan::summary(fit2$model,
                                            pars = c('mu','alpha','log_p10'),
@@ -829,8 +827,7 @@ test_that("jointModel parameter recovery tests work",{
   )
   # run model
   fit_large <- jointModel(data=data, cov=c('var_a','var_b'),
-                          multicore=FALSE, seed = 10, n.chain=1,
-                          n.iter.sample = 1000)
+                          multicore=FALSE, seed = 10, n.chain=1)
   # summary
   summary_large <- as.data.frame(rstan::summary(fit_large$model,
                                                 pars = 'alpha',

diff --git a/tests/testthat/test-jointSummarize.R b/tests/testthat/test-jointSummarize.R
@@ -100,7 +100,7 @@ test_that("jointSummarize outputs work", {
 
   # run model
   fit <- jointModel(data=data, q=TRUE, family = 'negbin',
-                    initial_values = inits, n.iter.sample = 1000,
+                    initial_values = inits, 
                     n.chain=1, multicore=FALSE, seed = 10#,
                     #adapt_delta = 0.99
                     )
@@ -931,7 +931,7 @@ test_that("jointSummarize outputs work", {
   fit <- jointModel(data=data, family = 'negbin',
                     cov=c('var_a','var_b'),
                     n.chain=1, multicore=FALSE, seed = 10,
-                    initial_values=inits, n.iter.sample = 1000)
+                    initial_values=inits)
 
   # get output params
   output_params <- rownames(as.data.frame(jointSummarize(fit$model)))
@@ -1130,7 +1130,7 @@ test_that("jointSummarize outputs work", {
   fit <- jointModel(data=data,family='gamma',
                     cov=c('var_a','var_b'),
                     n.chain=1, multicore=FALSE, seed = 10,
-                    initial_values=inits, n.iter.sample = 1000)
+                    initial_values=inits)
 
   # get output params
   output_params <- rownames(as.data.frame(jointSummarize(fit$model)))