unit test fail

2025-07-09 01:22:25 +02:00 · 2018-11-16 21:57:55 +01:00
parent 4fcc2b409a
commit 373e0cb32f
2 changed files with 9 additions and 2 deletions
--- a/tests/testthat/test-mdro.R
+++ b/tests/testthat/test-mdro.R
@ -20,7 +20,7 @@ test_that("mdro works", {

  # septic_patients should have these finding using Dutch guidelines
  expect_equal(outcome %>% freq() %>% pull(count),
-               c(19989, 9, 2)) # 1167 not eval., 817 neg, 14 pos, 2 unconfirmed
+               c(1989, 9, 2)) # 1989 neg, 9 pos, 2 unconfirmed

  expect_equal(brmo(septic_patients, info = FALSE), mdro(septic_patients, "nl", info = FALSE))