diff options
author | Ken Kellner <ken@kenkellner.com> | 2023-12-05 15:46:22 -0500 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2023-12-05 15:46:22 -0500 |
commit | 15620efdd2c2b2fe9198cc2475be84346542d76f (patch) | |
tree | a5481abf2efb0e7a1b4b1d8e3112bfe6b2cc04e1 | |
parent | 24e1bfef2148e043dc4727a95bbf7eb5fd416f18 (diff) |
Add a few more tests
-rw-r--r-- | inst/tinytest/test_jags.R | 16 | ||||
-rw-r--r-- | inst/tinytest/test_jagsbasic.R | 5 |
2 files changed, 21 insertions, 0 deletions
diff --git a/inst/tinytest/test_jags.R b/inst/tinytest/test_jags.R index 1b30505..8295258 100644 --- a/inst/tinytest/test_jags.R +++ b/inst/tinytest/test_jags.R @@ -134,6 +134,18 @@ out <- jags(data = data, inits = inits, parameters.to.save = params, codaOnly = params) expect_equal(nrow(out$summary), 0) +# Saved data and inits--------------------------------------------------------- +set.seed(123) +run_inits <- jagsUI:::check_inits(inits, 3) + +set.seed(123) +out <- jags(data = data, inits = inits, + parameters.to.save = c("alpha","beta"), + model.file = modfile, n.chains = 3, n.adapt = 100, n.iter = 100, + n.burnin = 50, n.thin = 1, verbose=FALSE, store.data=TRUE) +expect_identical(out$data, data) +expect_identical(out$inits, run_inits) + # Check recovery after process_output errors----------------------------------- # Setting DIC to -999 forces process_output to error for testing expect_message(out <- jags(data = data, inits = inits, @@ -153,6 +165,10 @@ expect_true(all(is.na(out$summary[,"Rhat"]))) expect_true(all(is.na(out$summary[,"n.eff"]))) expect_true(all(out$summary["alpha",3:7] == out$summary["alpha",3])) +# Error when user tries to set seed-------------------------------------------- +expect_error(jags(data = data, inits = inits, parameters.to.save = params, + model.file = modfile, n.chains = 1, n.adapt = 100, n.iter = 100, + n.burnin = 50, n.thin = 1, DIC = FALSE, verbose=FALSE, seed=123)) # Single parameter slice------------------------------------------------------- set.seed(123) diff --git a/inst/tinytest/test_jagsbasic.R b/inst/tinytest/test_jagsbasic.R index 1e03fc4..927bd53 100644 --- a/inst/tinytest/test_jagsbasic.R +++ b/inst/tinytest/test_jagsbasic.R @@ -48,3 +48,8 @@ ref <- readRDS('jagsbasic_ref_update.Rds') expect_identical(names(out2), names(ref)) out2$model <- ref$model expect_equal(out2, ref) + +# Error if seed is set +expect_error(jags.basic(data = data, inits = inits, parameters.to.save = params, + model.file = modfile, n.chains = 3, n.adapt = 100, n.iter = 100, + n.burnin = 50, n.thin = 2, verbose=FALSE, save.model=TRUE, seed=123)) |