From db00278b961b9573f5c57e58d7df5b732227c313 Mon Sep 17 00:00:00 2001 From: Joe Thorley Date: Fri, 29 Sep 2023 19:46:13 -0700 Subject: [PATCH 1/2] sensitivity test that failing --- tests/testthat/test-zzz-analyse.R | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/tests/testthat/test-zzz-analyse.R b/tests/testthat/test-zzz-analyse.R index 947320c..6d9a9e7 100644 --- a/tests/testthat/test-zzz-analyse.R +++ b/tests/testthat/test-zzz-analyse.R @@ -387,4 +387,14 @@ random_effects = list(bSiteYear = c("Site", "YearFactor"))) dd <- mcmc_derive_data(analysis, new_data = c("Site", "Year"), ref_data = TRUE) expect_true(mcmcdata::is.mcmc_data(dd)) + + sensitivity <- sd_priors_by(analysis, by = 10, glance = FALSE) + + analyses <- analyses(analysis, sensitivity) + + glance <- glance(analyses, bound = TRUE) + + expect_is(glance, "tbl") + expect_identical(nrow(glance), 1L) + expect_identical(colnames(glance), c("all", "analysis", "sensitivity", "bound")) }) From eae12308acfd14db8613068dd6474d9712ba9b9d Mon Sep 17 00:00:00 2001 From: Joe Thorley Date: Fri, 29 Sep 2023 20:09:15 -0700 Subject: [PATCH 2/2] fix test --- tests/testthat/test-zzz-analyse.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-zzz-analyse.R b/tests/testthat/test-zzz-analyse.R index 6d9a9e7..086ef05 100644 --- a/tests/testthat/test-zzz-analyse.R +++ b/tests/testthat/test-zzz-analyse.R @@ -396,5 +396,5 @@ random_effects = list(bSiteYear = c("Site", "YearFactor"))) expect_is(glance, "tbl") expect_identical(nrow(glance), 1L) - expect_identical(colnames(glance), c("all", "analysis", "sensitivity", "bound")) + expect_identical(colnames(glance), c("n", "K", "nchains", "niters", "rhat_1", "rhat_2", "rhat_all", "converged")) })