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

limits for scale_y_percent - Licence update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-12-16 22:45:12 +01:00
parent 1ed0cc9bfd
commit b937662a97
67 changed files with 733 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
tests/testthat/test-age.R
View File

@ -1,4 +1,22 @@
context("g.test.R")
# ==================================================================== #
# TITLE #
# Antimicrobial Resistance (AMR) Analysis #
# #
# AUTHORS #
# Berends MS (m.s.berends@umcg.nl), Luz CF (c.f.luz@umcg.nl) #
# #
# LICENCE #
# This package is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License version 2.0, #
# as published by the Free Software Foundation. #
# #
# This R package is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License version 2.0 for more details. #
# ==================================================================== #
context("age.R")
test_that("age works", {
expect_equal(age(x = c("1980-01-01", "1985-01-01", "1990-01-01"),
@ -22,8 +40,16 @@ test_that("age_groups works", {
2)
expect_equal(length(unique(age_groups(ages, c(50, 60)))),
3)
expect_identical(class(age_groups(ages)),
expect_identical(class(age_groups(ages, "child")),
c("ordered", "factor"))
expect_identical(class(age_groups(ages, "elderly")),
c("ordered", "factor"))
expect_identical(class(age_groups(ages, "tens")),
c("ordered", "factor"))
expect_identical(class(age_groups(ages, "fives")),
c("ordered", "factor"))
})