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

few extra tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-08-24 14:18:38 +02:00
parent a100d07da6
commit baaf4cc3e1
4 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,6 +51,7 @@ test_that("frequency table works", {
expect_output(septic_patients %>% select(1:7) %>% freq() %>% print())
expect_output(septic_patients %>% select(1:8) %>% freq() %>% print())
expect_output(septic_patients %>% select(1:9) %>% freq() %>% print())
expect_output(print(freq(septic_patients$age), nmax = 20))
# top 5
expect_equal(