P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 08:32:04 +02:00
Code Releases Activity

Merge branch 'master' of https://gitlab.com/msberends/AMR

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-08-06 16:16:57 +02:00
parent 01a44bf4f2 4a85702b36
commit 3e9a263fc4
2 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,18 +19,18 @@
# Visit our website for more info: https://msberends.gitlab.io/AMR. #
# ==================================================================== #
context("portion.R")
context("resistance_predict.R")
test_that("prediction of rsi works", {
# AMX_R <- septic_patients %>%
# filter(mo == "B_ESCHR_COL") %>%
# rsi_predict(col_ab = "AMX",
# col_date = "date",
# minimum = 10,
# info = TRUE) %>%
# pull("value")
# # AMX resistance will increase according to data set `septic_patients`
# expect_true(AMX_R[3] < AMX_R[20])
AMX_R <- septic_patients %>%
filter(mo == "B_ESCHR_COL") %>%
rsi_predict(col_ab = "AMX",
col_date = "date",
minimum = 10,
info = TRUE) %>%
pull("value")
# AMX resistance will increase according to data set `septic_patients`
expect_true(AMX_R[3] < AMX_R[20])
x <- resistance_predict(septic_patients, col_ab = "AMX", year_min = 2010)
plot(x)