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

update MIC comparisons

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-04-05 16:44:43 +02:00
parent 4170def0ec
commit 0039cb05d6
13 changed files with 170 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/proportion.R
View File

@ -294,7 +294,7 @@ sir_confidence_interval <- function(...,
# this applies the Clopper-Pearson method
out <- stats::binom.test(x = x, n = n, conf.level = confidence_level)$conf.int
out <- set_clean_class(out, "double")
out <- set_clean_class(out, "numeric")
if (side %in% c("left", "l", "lower", "lowest", "less", "min")) {
out <- out[1]