lengthened jointModel tests

ropensci · Apr 25, 2024 · e72c870 · e72c870
1 parent df64461
commit e72c870
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -19,6 +19,7 @@ knitr::opts_chunk$set(
 <!-- badges: start -->
 [![R-CMD-check](https://github.com/abigailkeller/eDNAjoint/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/abigailkeller/eDNAjoint/actions/workflows/R-CMD-check.yaml)
 [![codecov](https://codecov.io/gh/abigailkeller/eDNAjoint/graph/badge.svg?token=AEVR9NSQ9Z)](https://codecov.io/gh/abigailkeller/eDNAjoint)
+[![pkgcheck](https://github.com/abigailkeller/eDNAjoint/workflows/pkgcheck/badge.svg)](https://github.com/abigailkeller/eDNAjoint/actions?query=workflow%3Apkgcheck)
 <!-- badges: end -->
 
 

diff --git a/tests/testthat/test-jointModel.R b/tests/testthat/test-jointModel.R
@@ -621,7 +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)
+                    multicore=FALSE, seed = 10)
   # summary
   summary1 <- as.data.frame(rstan::summary(fit1$model,
                                            pars = c('mu','alpha','log_p10'),
@@ -733,7 +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)
+                    multicore=FALSE, seed = 2)
   # summary
   summary2 <- as.data.frame(rstan::summary(fit2$model,
                                            pars = c('mu','alpha','log_p10'),
@@ -827,7 +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)
+                          multicore=FALSE, seed = 10)
   # summary
   summary_large <- as.data.frame(rstan::summary(fit_large$model,
                                                 pars = 'alpha',