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

cleanup and new intro logo

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-11-13 13:44:25 +01:00
parent 496c08d851
commit 7ca44fb756
56 changed files with 4623 additions and 4607 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/mdro.R
View File

@ -918,7 +918,7 @@ mdro <- function(x = NULL,
)
}
)
# for PDR; all agents are R (or I if combine_SI = FALSE)
# for PDR; all drugs are R (or I if combine_SI = FALSE)
x_transposed <- as.list(as.data.frame(t(x[rows, lst_vector, drop = FALSE]),
stringsAsFactors = FALSE
))
@ -1171,7 +1171,7 @@ mdro <- function(x = NULL,
)
}
# PDR (=4): all agents are R
# PDR (=4): all drugs are R
x[which(x$classes_affected == 999 & x$classes_in_guideline == x$classes_available), "MDRO"] <- 4
if (isTRUE(verbose)) {
x[which(x$MDRO == 4), "reason"] <- paste(