tests/testthat/test.rkiToBabsim.R

test_that("zero days are not ignored, correct amount of cases are produced", {
  arrivals <- rkiToBabsimArrivals(rkidata)
  expect_equal(sum(rkidata$AnzahlFall), nrow(arrivals))
})

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.