diff options
author | Ken Kellner <ken@kenkellner.com> | 2023-12-04 16:28:54 -0500 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2023-12-04 16:28:54 -0500 |
commit | 226b65c516b82a86811740fba2bc0e2001ea4bb5 (patch) | |
tree | 247acb93dc79d3615069234506c8d1e722dfe1a0 | |
parent | 18a5b03af01325a2c6dae2df237a190d31924217 (diff) |
Test for one chain/one iter
-rw-r--r-- | inst/tinytest/test_jags.R | 11 | ||||
-rw-r--r-- | inst/tinytest/test_process_output.R | 2 |
2 files changed, 12 insertions, 1 deletions
diff --git a/inst/tinytest/test_jags.R b/inst/tinytest/test_jags.R index a16fc68..e30147c 100644 --- a/inst/tinytest/test_jags.R +++ b/inst/tinytest/test_jags.R @@ -122,6 +122,17 @@ out <- jags(data = dataList, parameters.to.save = c("v", "lambda"), n.burnin = 100, n.thin = 5, verbose=FALSE) expect_equal(rownames(out$summary), c("v", "lambda","deviance")) + +# Single chain and single iteration-------------------------------------------- +out <- jags(data = data, inits = inits, parameters.to.save = params, + model.file = modfile, n.chains = 1, n.adapt = 100, n.iter = 100, + n.burnin = 99, n.thin = 1, DIC = FALSE, verbose=FALSE) +expect_true(all(is.na(out$summary[,"sd"]))) +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])) + + # Single parameter slice------------------------------------------------------- set.seed(123) pars_new <- c("mu[2]") diff --git a/inst/tinytest/test_process_output.R b/inst/tinytest/test_process_output.R index 87074d7..2c56080 100644 --- a/inst/tinytest/test_process_output.R +++ b/inst/tinytest/test_process_output.R @@ -52,7 +52,7 @@ expect_identical(rownames(out3$summary), c("beta", "sigma", "deviance")) # Unexpected error happens during process_output------------------------------- # Here one of the arguments is missing -expect_message(out_fail <- process_output(samples)) +expect_message(out_fail <- process_output(samples, quiet=TRUE)) expect_true(is.null(out_fail)) # result is NULL #test that process_output matches old jagsUI process.output-------------------- |