P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-18 10:03:17 +02:00
Code Releases Activity

(v0.8.0.9027) adding susceptibility() and resistance()

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-11-10 12:16:56 +01:00
parent 228a4245cb
commit 59ededa8dc
85 changed files with 1526 additions and 932 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tests/testthat/test-deprecated.R
View File

@ -22,20 +22,12 @@
context("deprecated.R")
test_that("deprecated functions work", {
# first 5 chars of official name
expect_equal(suppressWarnings(as.character(as.atc(c("nitro", "cipro")))),
c("J01XE01", "J01MA02"))
# EARS-Net
expect_equal(suppressWarnings(as.character(as.atc("AMX"))),
"J01CA04")
expect_equal(suppressWarnings(guess_ab_col(data.frame(AMP_ND10 = "R",
AMC_ED20 = "S"),
as.atc("augmentin"))),
"AMC_ED20")
expect_identical(suppressWarnings(p.symbol(seq(0, 1, 0.001))),
p_symbol(seq(0, 1, 0.001)))
expect_equal(suppressWarnings(portion_S(example_isolates$AMX)), proportion_S(example_isolates$AMX))
expect_equal(suppressWarnings(portion_SI(example_isolates$AMX)), proportion_SI(example_isolates$AMX))
expect_equal(suppressWarnings(portion_I(example_isolates$AMX)), proportion_I(example_isolates$AMX))
expect_equal(suppressWarnings(portion_IR(example_isolates$AMX)), proportion_IR(example_isolates$AMX))
expect_equal(suppressWarnings(portion_R(example_isolates$AMX)), proportion_R(example_isolates$AMX))
})