1
0
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:
uscloud
2018-05-22 16:34:22 +02:00
parent 0d80647d41
commit dcc26dd942
71 changed files with 26 additions and 28 deletions

0
tests/testthat/test-atc.R Normal file → Executable file
View File

0
tests/testthat/test-classes.R Normal file → Executable file
View File

0
tests/testthat/test-eucast.R Normal file → Executable file
View File

0
tests/testthat/test-first_isolates.R Normal file → Executable file
View File

0
tests/testthat/test-freq.R Normal file → Executable file
View File

0
tests/testthat/test-joins.R Normal file → Executable file
View File

0
tests/testthat/test-mdro.R Normal file → Executable file
View File

0
tests/testthat/test-misc.R Normal file → Executable file
View File

0
tests/testthat/test-print.R Normal file → Executable file
View File

6
tests/testthat/test-rsi_analysis.R Normal file → Executable file
View 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,