diff --git a/README.Rmd b/README.Rmd index 594c985..8fe2053 100644 --- a/README.Rmd +++ b/README.Rmd @@ -19,6 +19,7 @@ knitr::opts_chunk$set( [![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) diff --git a/tests/testthat/test-jointModel.R b/tests/testthat/test-jointModel.R index 48ccb57..41b07b7 100644 --- 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',