diff options
| author | Ken Kellner <ken@kenkellner.com> | 2023-12-04 14:50:02 -0500 |
|---|---|---|
| committer | Ken Kellner <ken@kenkellner.com> | 2023-12-04 14:50:02 -0500 |
| commit | da6abf775ca3aeb5f0b2faf570ce0cf155d4be3b (patch) | |
| tree | 9edc0c79b12def30eae774cf0dd0a8fd03b85258 | |
| parent | 7be9a09e5bbcc9b03ffa06353bd7b5bab216cd32 (diff) | |
Test processing a single slice of a vector param
| -rw-r--r-- | inst/tinytest/test_jags.R | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/inst/tinytest/test_jags.R b/inst/tinytest/test_jags.R index 230d2c8..110b362 100644 --- a/inst/tinytest/test_jags.R +++ b/inst/tinytest/test_jags.R @@ -25,6 +25,9 @@ out <- jags(data = data, inits = inits, parameters.to.save = params, model.file = modfile, n.chains = 3, n.adapt = 100, n.iter = 1000, n.burnin = 500, n.thin = 2, verbose=FALSE) +# Used below +mu2_est <- out$mean$mu[2] + ref <- readRDS("longley_reference_fit.Rds") # Remove time/date based elements @@ -98,3 +101,13 @@ out <- jags(data = data, inits = inits, parameters.to.save = pars_new, n.burnin = 50, n.thin = 1, DIC = FALSE, verbose=FALSE) expect_equal(nrow(out$summary), 1) expect_equal(ncol(out$samples[[1]]), 1) + +# Single parameter slice------------------------------------------------------- +set.seed(123) +pars_new <- c("mu[2]") +out <- jags(data = data, inits = inits, parameters.to.save = pars_new, + model.file = modfile, n.chains = 3, n.adapt = 100, n.iter = 1000, + n.burnin = 500, n.thin = 2, DIC = FALSE, verbose=FALSE) +expect_equal(nrow(out$summary), 1) +expect_equal(ncol(out$samples[[1]]), 1) +expect_equal(out$mean$mu, mu2_est) |