Merge branch 'aalen_johansen' of https://github.com/openpharma/savvyr …

…into aalen_johansen
openpharma · Feb 2, 2024 · 6d0b7a3 · 6d0b7a3
2 parents 355af8a + 27641c1
commit 6d0b7a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-aalen_johansen.R b/tests/testthat/test-aalen_johansen.R
@@ -39,6 +39,6 @@ test_that("Aalen Johansen works without competing events", {
   df <- df[df$type_of_event != 2, ]
   df <- df[df$type_of_event != 3, ]
   result <- aalen_johansen(data = df, ce = 2, tau = 4)
-  expected <- c(ae_prob = 0.5897, ae_prob_var = 0.0404 , ce_prob = 0, ce_prob_var = 0)
+  expected <- c(ae_prob = 0.5897, ae_prob_var = 0.0404, ce_prob = 0, ce_prob_var = 0)
   expect_equal(result, expected, tolerance = 1e-4)
 })