P281424
/
AMR
mirror of https://github.com/msberends/AMR.git
1
0
Fork 0
Code Releases Activity

quickfix

This commit is contained in:
dr. M.S. (Matthijs) Berends 2019-07-09 20:26:42 +02:00
parent b452de2fe4
commit a56a87c7db
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitlab-ci.yml
View File

@ -30,7 +30,7 @@ stages:
image: rocker/r-base image: rocker/r-base
before_script: before_script:
- apt-get update -qq - apt-get update -qq --allow-releaseinfo-change
# install dependencies for packages # install dependencies for packages
- apt-get install -y wget locales libxml2-dev libssl-dev libcurl4-openssl-dev zlib1g-dev > /dev/null - apt-get install -y wget locales libxml2-dev libssl-dev libcurl4-openssl-dev zlib1g-dev > /dev/null
# recent pandoc # recent pandoc

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

@ -22,15 +22,15 @@
context("portion.R") context("portion.R")
test_that("prediction of rsi works", { test_that("prediction of rsi works", {
AMX_R <- septic_patients %>% # AMX_R <- septic_patients %>%
filter(mo == "B_ESCHR_COL") %>% # filter(mo == "B_ESCHR_COL") %>%
rsi_predict(col_ab = "AMX", # rsi_predict(col_ab = "AMX",
col_date = "date", # col_date = "date",
minimum = 10, # minimum = 10,
info = TRUE) %>% # info = TRUE) %>%
pull("value") # pull("value")
# AMX resistance will increase according to data set `septic_patients` # # AMX resistance will increase according to data set `septic_patients`
expect_true(AMX_R[3] < AMX_R[20]) # expect_true(AMX_R[3] < AMX_R[20])
x <- resistance_predict(septic_patients, col_ab = "AMX", year_min = 2010) x <- resistance_predict(septic_patients, col_ab = "AMX", year_min = 2010)
plot(x) plot(x)