Nothing
tests/testthat/test.mapAgeGroupToAge.R
In babsim.hospital: Bartz & Bartz Simulation Hospital
test_that("mapAgeGroupToAge works", {
Altersgruppe <- c("A00-A04", "A05-A14", "A15-A34", "A35-A59", "A60-A79", "A80+", "unbekannt")
Age <- c(2, 10, 25, 47, 70, 90, 47)
expect_equal(mapAgeGroupToAge(Altersgruppe), Age)
o <- sample(length(Age))
expect_equal(mapAgeGroupToAge(Altersgruppe[o]), Age[o])
})
Try the babsim.hospital package in your browser
Any scripts or data that you put into this service are public.
babsim.hospital documentation built on May 30, 2022, 9:05 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("mapAgeGroupToAge works", {
Altersgruppe <- c("A00-A04", "A05-A14", "A15-A34", "A35-A59", "A60-A79", "A80+", "unbekannt")
Age <- c(2, 10, 25, 47, 70, 90, 47)
expect_equal(mapAgeGroupToAge(Altersgruppe), Age)
o <- sample(length(Age))
expect_equal(mapAgeGroupToAge(Altersgruppe[o]), Age[o])
})
Try the babsim.hospital package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.