print more digits to the expected object

Merck · Aug 1, 2024 · 98ccfd7 · 98ccfd7
1 parent bbdfb96
commit 98ccfd7
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/tests/testthat/test-unvalidated-sim_gs_n.R b/tests/testthat/test-unvalidated-sim_gs_n.R
@@ -255,13 +255,19 @@ test_that("Milestone", {
     n = rep(400L, 9L),
     event = c(244, 307, 362, 235, 310, 361, 222, 286, 351),
     estimate = c(
-      0.05708825, 0.05500000, 0.05500000, 0.09823631, 0.09953322, 0.09953322, 0.03140334, 0.04759124, 0.04759124
+      0.0570882489260, 0.0550000000000, 0.0550000000000,
+      0.0982363112857, 0.0995332208091, 0.0995332208091,
+      0.0314033376240, 0.0475912427493, 0.0475912427493
     ),
     se = c(
-      0.05031828, 0.04991868, 0.04991868, 0.05000253, 0.04984352, 0.04984352, 0.05128704, 0.04986524, 0.04986524
+      0.0503182801363, 0.0499186838769, 0.0499186838769,
+      0.0500025291675, 0.0498435166464, 0.0498435166464,
+      0.0512870375551, 0.0498652399931, 0.0498652399931
     ),
     z = c(
-      1.1345429, 1.1017919, 1.1017919, 1.9646268, 1.9969141, 1.9969141, 0.6123055, 0.9543971, 0.9543971
+      1.1345429289596, 1.1017918688652, 1.1017918688652,
+      1.9646268483073, 1.9969140924625, 1.9969140924625,
+      0.6123055477761, 0.9543971463075, 0.9543971463075
     )
   )
   expect_equal(observed, expected)