P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-07-20 21:50:55 +02:00
Code Releases Activity

final2

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-06-23 01:20:09 +02:00
parent 57e45db320
commit f0c3ce80cd
14 changed files with 95 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/antibiogram.R
View File

@@ -898,7 +898,7 @@ antibiogram.default <- function(x,
susceptibility = sim_susceptibility
)
out_wisca$coverage[out_wisca$group == group] <- mean(sim_coverage)
ci_vals <- unname(stats::quantile(coverage_simulations, probs = probs))
ci_vals <- unname(stats::quantile(sim_coverage, probs = probs))
out_wisca$lower_ci[out_wisca$group == group] <- ci_vals[1]
out_wisca$upper_ci[out_wisca$group == group] <- ci_vals[2]
}
@@ -1657,10 +1657,10 @@ autoplot.antibiogram <- function(object,
if (is.null(caption)) {
if (is_wisca) {
out <- out + labs(caption = "Overlapping credible intervals:\nclinically non-inferior (Bielicki 2020)")
out <- out + ggplot2::labs(caption = "Overlapping credible intervals:\nclinically non-inferior (Bielicki 2020)")
}
} else if (!caption %in% c(FALSE, NA)) {
out <- out + labs(caption = caption)
out <- out + ggplot2::labs(caption = caption)
}
out <- out +