update values

Author: strengejacke

tests/testthat/test-diagnostic_posterior.R

@@ -28,8 +28,8 @@ test_that("diagnostic_posterior default", {
   skip_on_os("linux")
   dp2 <- diagnostic_posterior(dd2)
   expect_equal(dp2$Parameter, c("A", "B"))
-  expect_equal(dp2$Rhat, c(1.0012553633007766, 1.0008730199159905), tolerance = 1e-3)
+  expect_equal(dp2$Rhat, c(1.00125536, 1.00087302), tolerance = 1e-3)
   expect_true(is.numeric(dp2$ESS))
   expect_true(all(dp2$ESS > 0))
-  expect_equal(dp2$MCSE, c(0.03291257472426944, 0.03590011166377985), tolerance = 1e-3)
+  expect_equal(dp2$MCSE, c(0.03291257, 0.03590011), tolerance = 1e-3)
 })