1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 23:01:51 +02:00

WHONET/EARS-Net support

This commit is contained in:
2019-01-29 00:06:50 +01:00
parent f6336fdd89
commit 6aae206320
83 changed files with 1428 additions and 633 deletions

View File

@ -33,4 +33,13 @@ test_that("guess_ab_col works", {
"tetr")
expect_equal(guess_ab_col(septic_patients, "TETR"),
"tetr")
df <- data.frame(AMP_ND10 = "R",
AMC_ED20 = "S")
expect_equal(guess_ab_col(df, "ampicillin"),
"AMP_ND10")
expect_equal(guess_ab_col(df, "J01CR02"),
"AMC_ED20")
expect_equal(guess_ab_col(df, as.atc("augmentin")),
"AMC_ED20")
})