From 3b5f2ebbf6f7a72aab32eded4ea0d86607fe0d5b Mon Sep 17 00:00:00 2001 From: abigailkeller Date: Wed, 24 Apr 2024 15:08:01 +0000 Subject: [PATCH] extended iters on some tests --- tests/testthat/test-jointModel.R | 9 +++------ tests/testthat/test-jointSummarize.R | 6 +++--- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/tests/testthat/test-jointModel.R b/tests/testthat/test-jointModel.R index c5689fc..48ccb57 100644 --- 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 index d32c69e..8ab1e66 100644 --- 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)))