P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 14:01:55 +02:00
Code Releases Activity

(v0.7.1.9096) German guideline for mdro()

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-10-07 14:32:06 +02:00
parent 1e260d85c8
commit 4e9c4c1b4e
22 changed files with 514 additions and 410 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
tests/testthat/test-mdro.R
View File

@ -75,7 +75,27 @@ test_that("mdro works", {
col_mo = "mo",
info = FALSE)),
"Positive")
# German 3MRGN and 4MRGN
expect_equal(as.character(mrgn(
data.frame(mo = c("E. coli", "E. coli", "K. pneumoniae", "E. coli",
"A. baumannii", "A. baumannii", "A. baumannii",
"P. aeruginosa", "P. aeruginosa", "P. aeruginosa"),
PIP = c("S", "R", "R", "S",
"S", "R", "R",
"S", "R", "R"),
CTX = c("S", "R", "R", "S",
"R", "R", "R",
"R", "R", "R"),
IPM = c("S", "R", "S", "R",
"R", "R", "S",
"S", "R", "R"),
CIP = c("S", "R", "R", "S",
"R", "R", "R",
"R", "S", "R"),
stringsAsFactors = FALSE))),
c("Negative", "4MRGN", "3MRGN", "4MRGN", "4MRGN", "4MRGN", "3MRGN", "Negative", "3MRGN", "4MRGN"))
# MDR TB
expect_equal(
# select only rifampicine, mo will be determined automatically (as M. tuberculosis),