test_that("acummulate_incidence return  a data frame when given data frame with given incidence data frame", {
  expect_equal(2 * 2, 4)
})