mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 21:42:01 +02:00
(v1.6.0.9030) new unit test flow
This commit is contained in:
@ -119,7 +119,7 @@ test_that("mdro works", {
|
||||
pza = sample_rsi(),
|
||||
MFX = sample_rsi(),
|
||||
KAN = sample_rsi())
|
||||
expect_gt(n_distinct(mdr_tb(x)), 2)
|
||||
expect_gt(length(unique(mdr_tb(x))), 2)
|
||||
|
||||
# check the guideline by Magiorakos et al. (2012), the default guideline
|
||||
stau <- data.frame(mo = c("S. aureus", "S. aureus", "S. aureus", "S. aureus"),
|
||||
|
Reference in New Issue
Block a user