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

Replace RSI with SIR

Browse Source
This commit is contained in:
Dr. Matthijs Berends
2023-01-21 23:47:20 +01:00
committed by GitHub
parent 24b12024ce
commit 98e62c9af2
127 changed files with 1746 additions and 1648 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
inst/tinytest/test-mdro.R
View File

@ -133,13 +133,13 @@ expect_equal(
)
x <- data.frame(
rifampicin = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
inh = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
gatifloxacin = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
eth = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
pza = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
MFX = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5)),
KAN = random_rsi(5000, prob_RSI = c(0.4, 0.1, 0.5))
rifampicin = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
inh = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
gatifloxacin = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
eth = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
pza = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
MFX = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5)),
KAN = random_sir(5000, prob_sir = c(0.4, 0.1, 0.5))
)
expect_true(length(unique(mdr_tb(x))) > 2)