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

add confidence intervals (fixed #70), remove combine_IR

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-10-20 16:08:01 +02:00
parent 85e2fbe4a3
commit aa2c0639d0
19 changed files with 248 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
inst/tinytest/test-proportion.R
View File

@ -32,6 +32,8 @@ expect_equal(proportion_SI(example_isolates$AMX), susceptibility(example_isolate
# AMX resistance in `example_isolates`
expect_equal(proportion_R(example_isolates$AMX), 0.5955556, tolerance = 0.0001)
expect_equal(proportion_I(example_isolates$AMX), 0.002222222, tolerance = 0.0001)
expect_equal(rsi_confidence_interval(example_isolates$AMX)[1], 0.5688204, tolerance = 0.0001)
expect_equal(rsi_confidence_interval(example_isolates$AMX)[2], 0.6218738, tolerance = 0.0001)
expect_equal(
1 - proportion_R(example_isolates$AMX) - proportion_I(example_isolates$AMX),
proportion_S(example_isolates$AMX)
@ -99,13 +101,6 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0")) {
example_isolates$AMX %>% proportion_R()
)
)
expect_equal(
example_isolates %>% select(AMX) %>% proportion_df(combine_IR = TRUE) %>% pull(value),
c(
example_isolates$AMX %>% proportion_S(),
example_isolates$AMX %>% proportion_IR()
)
)
expect_equal(
example_isolates %>% select(AMX) %>% proportion_df(combine_SI = FALSE) %>% pull(value),
c(
@ -114,6 +109,8 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0")) {
example_isolates$AMX %>% proportion_R()
)
)
expect_warning(example_isolates %>% group_by(ward) %>% summarise(across(KAN, rsi_confidence_interval)))
}
expect_warning(proportion_R(as.character(example_isolates$AMC)))