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

replaced bactid by mo

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-08-31 13:36:19 +02:00
parent 98ff131680
commit 5965d3c794
41 changed files with 786 additions and 411 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/testthat/test-freq.R
View File

@ -22,7 +22,7 @@ test_that("frequency table works", {
expect_output(print(freq(septic_patients$age[0])))
# character
expect_output(print(freq(septic_patients$bactid)))
expect_output(print(freq(septic_patients$mo)))
# integer
expect_output(print(freq(septic_patients$age)))
# date
@ -56,21 +56,21 @@ test_that("frequency table works", {
# top 5
expect_equal(
septic_patients %>%
freq(bactid) %>%
freq(mo) %>%
top_freq(5) %>%
length(),
5)
# there're more than 5 lowest values
expect_gt(
septic_patients %>%
freq(bactid) %>%
freq(mo) %>%
top_freq(-5) %>%
length(),
5)
# n has length > 1
expect_error(
septic_patients %>%
freq(bactid) %>%
freq(mo) %>%
top_freq(n = c(1, 2))
)
# input must be freq tbl