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

(v1.1.0.9014) lose dependencies

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-05-19 14:16:45 +02:00
parent cb1814f5ff
commit 5216d2b520
27 changed files with 313 additions and 313 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/testthat/test-mdro.R
View File

@ -40,7 +40,7 @@ test_that("mdro works", {
expect_equal(outcome %>% class(), c("ordered", "factor"))
# example_isolates should have these finding using Dutch guidelines
expect_equal(outcome %>% freq() %>% pull(count),
expect_equal(outcome %>% cleaner::freq() %>% pull(count),
c(1969, 25, 6)) # 1969 neg, 25 unconfirmed, 6 pos
expect_equal(brmo(example_isolates, info = FALSE),
@ -98,7 +98,7 @@ test_that("mdro works", {
expect_equal(
# select only rifampicine, mo will be determined automatically (as M. tuberculosis),
# number of mono-resistant strains should be equal to number of rifampicine-resistant strains
freq(mdr_tb(example_isolates[, "RIF", drop = FALSE]))$count[2],
cleaner::freq(mdr_tb(example_isolates[, "RIF", drop = FALSE]))$count[2],
count_R(example_isolates$RIF))
sample_rsi <- function() {