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

use dplyr where available, new antibiogram() for WISCA, fixed Salmonella Typhi/Paratyphi

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-06 11:57:22 +01:00
parent 4b133d4c96
commit 9e99e66f01
69 changed files with 1670 additions and 650 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/plot.R
View File

@ -602,7 +602,7 @@ plot.sir <- function(x,
data$x <- factor(data$x, levels = c("S", "I", "R"), ordered = TRUE)
ymax <- pm_if_else(max(data$s) > 95, 105, 100)
ymax <- ifelse(max(data$s) > 95, 105, 100)
plot(
x = data$x,
@ -615,7 +615,7 @@ plot.sir <- function(x,
axes = FALSE
)
# x axis
axis(side = 1, at = 1:pm_n_distinct(data$x), labels = levels(data$x), lwd = 0)
axis(side = 1, at = 1:n_distinct(data$x), labels = levels(data$x), lwd = 0)
# y axis, 0-100%
axis(side = 2, at = seq(0, 100, 5))