1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 10:21:56 +02:00

(v2.1.1.9083) update for first_isolate()

This commit is contained in:
2024-09-30 19:13:53 +02:00
parent 681fe011fe
commit 8907e8e4af
4 changed files with 12 additions and 10 deletions

View File

@ -670,8 +670,7 @@ duplicated_antibiogram <- function(antibiogram, points_threshold, ignore_I, type
# fast return, only 1 isolate
return(FALSE)
}
stop("Check R/first_isolate.R -> duplicated_antibiogram()")
# first sort on data availability - count the dots and order that ascending
# first sort on data availability - count the dots and order that ascending so that highest availability of SIR is on top
number_dots <- vapply(FUN.VALUE = integer(1),
antibiogram,
function(x) sum(strsplit(x, "", fixed = TRUE)[[1]] == "."),