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

get episode unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-24 19:54:56 +01:00
parent 2c5a9bb622
commit 1d3d7d40bc
5 changed files with 89 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
inst/tinytest/test-episode.R → inst/tinytest/test-get_episode.R
View File

@ -27,6 +27,14 @@
# how to conduct AMR data analysis: https://msberends.github.io/AMR/ #
# ==================================================================== #
x <- data.frame(dates = as.Date(c("2021-01-01", "2021-01-02", "2021-01-05", "2021-01-08", "2021-02-21", "2021-02-22", "2021-02-23", "2021-02-24", "2021-03-01", "2021-03-01")))
x$absolute <- get_episode(x$dates, episode_days = 7)
x$relative <- get_episode(x$dates, case_free_days = 7)
expect_equal(x$absolute, c(1, 1, 1, 2, 3, 3, 3, 3, 4, 4))
expect_equal(x$relative, c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2))
expect_equal(get_episode(as.Date(c("2022-01-01", "2020-01-01")), 365), c(2, 1))
expect_equal(get_episode(as.Date(c("2020-01-01", "2022-01-01")), 365), c(1, 2))
test_df <- rbind(
data.frame(
date = as.Date(c("2015-01-01", "2015-10-01", "2016-02-04", "2016-12-31", "2017-01-01", "2017-02-01", "2017-02-05", "2020-01-01")),