mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 18:01:50 +02:00
Update freq function
This commit is contained in:
0
tests/testthat/test-atc.R
Normal file → Executable file
0
tests/testthat/test-atc.R
Normal file → Executable file
0
tests/testthat/test-classes.R
Normal file → Executable file
0
tests/testthat/test-classes.R
Normal file → Executable file
0
tests/testthat/test-eucast.R
Normal file → Executable file
0
tests/testthat/test-eucast.R
Normal file → Executable file
0
tests/testthat/test-first_isolates.R
Normal file → Executable file
0
tests/testthat/test-first_isolates.R
Normal file → Executable file
0
tests/testthat/test-freq.R
Normal file → Executable file
0
tests/testthat/test-freq.R
Normal file → Executable file
0
tests/testthat/test-joins.R
Normal file → Executable file
0
tests/testthat/test-joins.R
Normal file → Executable file
0
tests/testthat/test-mdro.R
Normal file → Executable file
0
tests/testthat/test-mdro.R
Normal file → Executable file
0
tests/testthat/test-misc.R
Normal file → Executable file
0
tests/testthat/test-misc.R
Normal file → Executable file
0
tests/testthat/test-print.R
Normal file → Executable file
0
tests/testthat/test-print.R
Normal file → Executable file
6
tests/testthat/test-rsi_analysis.R
Normal file → Executable file
6
tests/testthat/test-rsi_analysis.R
Normal file → Executable file
@ -2,12 +2,12 @@ context("rsi_analysis.R")
|
||||
|
||||
test_that("rsi works", {
|
||||
# amox resistance in `septic_patients` should be around 53.86%
|
||||
expect_equal(rsi(septic_patients$amox), 0.5386, tolerance = 0.0001)
|
||||
expect_equal(rsi(septic_patients$amox), 0.5386, tolerance = 0.0001)
|
||||
expect_equal(rsi(septic_patients$amox), 0.5756, tolerance = 0.0001)
|
||||
expect_equal(rsi(septic_patients$amox), 0.5756, tolerance = 0.0001)
|
||||
expect_equal(rsi_df(septic_patients,
|
||||
ab = "amox",
|
||||
info = FALSE),
|
||||
0.5386,
|
||||
0.5756,
|
||||
tolerance = 0.0001)
|
||||
# pita+genta susceptibility around 98.09%
|
||||
expect_equal(rsi(septic_patients$pita,
|
||||
|
Reference in New Issue
Block a user