P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-08-13 12:45:14 +02:00
Code Releases Activity

(v1.5.0.9007) updated unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-18 18:45:43 +01:00
parent 4eab095306
commit 27f084d819
17 changed files with 47 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
tests/testthat/test-resistance_predict.R
View File

@ -27,25 +27,25 @@ context("resistance_predict.R")
test_that("prediction of rsi works", {
skip_on_cran()
AMX_R <- example_isolates %>%
filter(mo == "B_ESCHR_COLI") %>%
rsi_predict(col_ab = "AMX",
col_date = "date",
model = "binomial",
minimum = 10,
info = TRUE) %>%
pull("value")
library(dplyr)
expect_output(AMX_R <- example_isolates %>%
filter(mo == "B_ESCHR_COLI") %>%
rsi_predict(col_ab = "AMX",
col_date = "date",
model = "binomial",
minimum = 10,
info = TRUE) %>%
pull("value"))
# AMX resistance will increase according to data set `example_isolates`
expect_true(AMX_R[3] < AMX_R[20])
x <- resistance_predict(example_isolates, col_ab = "AMX", year_min = 2010, model = "binomial")
expect_output(x <- suppressMessages(resistance_predict(example_isolates, col_ab = "AMX", year_min = 2010, model = "binomial", info = TRUE)))
pdf(NULL) # prevent Rplots.pdf being created
expect_silent(plot(x))
expect_silent(ggplot_rsi_predict(x))
expect_error(ggplot_rsi_predict(example_isolates))
library(dplyr, warn.conflicts = FALSE)
expect_output(rsi_predict(x = filter(example_isolates, mo == "B_ESCHR_COLI"),
model = "binomial",
col_ab = "AMX",