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

(v1.7.1.9019) Morganella MIC in EUCAST 2021

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-07-12 12:28:41 +02:00
parent 5ccb330b42
commit fc946564d1
30 changed files with 112 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/plot.R
View File

@ -684,6 +684,7 @@ plot_prepare_table <- function(x, expand) {
if (is.mic(x)) {
if (expand == TRUE) {
# expand range for MIC by adding factors of 2 from lowest to highest so all MICs in between also print
valid_lvls <- levels(x)
extra_range <- max(x) / 2
while (min(extra_range) / 2 > min(x)) {
extra_range <- c(min(extra_range) / 2, extra_range)
@ -692,7 +693,7 @@ plot_prepare_table <- function(x, expand) {
extra_range <- rep(0, length(extra_range))
names(extra_range) <- nms
x <- table(droplevels(x, as.mic = FALSE))
extra_range <- extra_range[!names(extra_range) %in% names(x)]
extra_range <- extra_range[!names(extra_range) %in% names(x) & names(extra_range) %in% valid_lvls]
x <- as.table(c(x, extra_range))
} else {
x <- table(droplevels(x, as.mic = FALSE))