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

(v2.1.1.9049) new 2024 breakpoints, add AMO, set NI instead of N

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-06-14 22:39:01 +02:00
parent de17de1be9
commit 9bf7584d58
57 changed files with 4375 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/sir_calc.R
View File

@ -278,9 +278,9 @@ sir_calc_df <- function(type, # "proportion", "count" or "both"
for (i in seq_len(ncol(.data))) {
values <- .data[, i, drop = TRUE]
if (isTRUE(combine_SI)) {
values <- factor(values, levels = c("SI", "R", "N"), ordered = TRUE)
values <- factor(values, levels = c("SI", "R", "NI"), ordered = TRUE)
} else {
values <- factor(values, levels = c("S", "SDD", "I", "R", "N"), ordered = TRUE)
values <- factor(values, levels = c("S", "SDD", "I", "R", "NI"), ordered = TRUE)
}
col_results <- as.data.frame(as.matrix(table(values)), stringsAsFactors = FALSE)
col_results$interpretation <- rownames(col_results)