added prints to testing

nimble-dev · Feb 5, 2024 · 7fdbe52 · 7fdbe52
1 parent 80bf7ed
commit 7fdbe52
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/nimbleHMC/tests/testthat/test-HMC.R b/nimbleHMC/tests/testthat/test-HMC.R
@@ -59,7 +59,9 @@ test_that('HMC sampler on subset of nodes', {
         Cmcmc <- compileNimble(Rmcmc, project = Rmodel)
         set.seed(1)
         samples <- runMCMC(Cmcmc, 100000)
+        print(abs(as.numeric(apply(samples, 2, mean)) - c(0.4288181, 1.8582433, 3.2853841)))
         expect_true(all(abs(as.numeric(apply(samples, 2, mean)) - c(0.4288181, 1.8582433, 3.2853841)) < 0.015))
+        print(abs(as.numeric(apply(samples, 2, sd)) - c(0.9248042, 1.1964343, 1.3098622)))
         expect_true(all(abs(as.numeric(apply(samples, 2, sd)) - c(0.9248042, 1.1964343, 1.3098622)) < 0.01))
     }
 })