test_that("simulate_surveillance_data works", {
  x <- simulate_surveillance_data(n_time = 10)
  expect_s3_class(x, "data.frame")
  expect_equal(nrow(x), 10)
})