P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 15:01:54 +02:00
Code Releases Activity

age_groups fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-02-27 11:36:12 +01:00
parent 4ba2ff68e0
commit 54162522bd
41 changed files with 450 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/testthat/test-data.R
View File

@ -58,9 +58,16 @@ test_that("data sets are valid", {
test_that("creation of data sets is valid", {
df <- make()
expect_lt(nrow(df[which(df$prevalence == 1), ]), nrow(df[which(df$prevalence == 2), ]))
expect_lt(nrow(df[which(df$prevalence == 2), ]), nrow(df[which(df$prevalence == 3), ]))
DT <- make_DT()
expect_lt(nrow(DT[prevalence == 1]), nrow(DT[prevalence == 2]))
expect_lt(nrow(DT[prevalence == 2]), nrow(DT[prevalence == 3]))
old <- make_trans_tbl()
expect_gt(length(old), 0)
})
test_that("CoL version info works", {
expect_equal(class(catalogue_of_life_version()), "list")
})