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

(v3.0.0.9004) random mic fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2025-06-13 16:12:28 +02:00
parent 72db2b2562
commit 8fd8ee508f
No known key found for this signature in database
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 3.0.0.9003 Version: 3.0.0.9004
Date: 2025-06-13 Date: 2025-06-13
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

2
NEWS.md
View File

@ -1,4 +1,4 @@
# AMR 3.0.0.9003 # AMR 3.0.0.9004
### New ### New
* Integration with the **tidymodels** framework to allow seamless use of MIC and SIR data in modelling pipelines via `recipes` * Integration with the **tidymodels** framework to allow seamless use of MIC and SIR data in modelling pipelines via `recipes`

5
R/random.R
View File

@ -88,8 +88,9 @@ random_mic <- function(size = NULL, mo = NULL, ab = NULL, skew = "right", severi
out[out == min(out)] <- paste0("<=", out[out == min(out)]) out[out == min(out)] <- paste0("<=", out[out == min(out)])
} }
if (stats::runif(1) > 0.5 && length(unique(out)) > 1) { if (stats::runif(1) > 0.5 && length(unique(out)) > 1) {
out[out == max(out)] <- paste0(">=", out[out == max(out)]) out[out == max(out) & out %unlike% "<="] <- paste0(">=", out[out == max(out) & out %unlike% "<="])
} }
return(out) return(out)
} else { } else {
random_exec("MIC", size = size, mo = mo, ab = ab, skew = skew, severity = severity) random_exec("MIC", size = size, mo = mo, ab = ab, skew = skew, severity = severity)
@ -163,7 +164,7 @@ random_exec <- function(method_type, size, mo = NULL, ab = NULL, skew = "right",
out[out == min(out)] <- paste0("<=", out[out == min(out)]) out[out == min(out)] <- paste0("<=", out[out == min(out)])
} }
if (stats::runif(1) > 0.5 && length(unique(out)) > 1) { if (stats::runif(1) > 0.5 && length(unique(out)) > 1) {
out[out == max(out)] <- paste0(">=", out[out == max(out)]) out[out == max(out) & out %unlike% "<="] <- paste0(">=", out[out == max(out) & out %unlike% "<="])
} }
return(as.mic(out)) return(as.mic(out))
} else if (method_type == "DISK") { } else if (method_type == "DISK") {