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

fix sorting of MICs, MIC autoplot titles

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-05-30 15:50:17 +02:00
parent c3ce1b551d
commit d4490c7f25
7 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
R/mic.R
View File

@ -495,12 +495,17 @@ rep.mic <- function(x, ...) {
#' @noRd
sort.mic <- function(x, decreasing = FALSE, ...) {
x <- as.mic(x) # make sure that currently implemented MIC levels are used
dbl <- as.double(x)
# make sure that e.g. '<0.001' comes before '0.001', and '>0.001' comes after
dbl[as.character(x) %like% "<[0-9]"] <- dbl[as.character(x) %like% "<[0-9]"] - 0.000002
dbl[as.character(x) %like% "<="] <- dbl[as.character(x) %like% "<="] - 0.000001
dbl[as.character(x) %like% ">="] <- dbl[as.character(x) %like% ">="] + 0.000001
dbl[as.character(x) %like% ">[0-9]"] <- dbl[as.character(x) %like% ">[0-9]"] + 0.000002
if (decreasing == TRUE) {
ord <- order(-as.double(x))
x[order(-dbl)]
} else {
ord <- order(as.double(x))
x[order(dbl)]
}
x[ord]
}
#' @method hist mic