tests/testthat/test-create_truth.R

In jarad/FluSight: Utility functions for the CDC FluSight competition

context("create_truth")

test_that("create_truth works", {
  
  # Removed first test as backfilled data means it no longer matches saved file
    # tmp_fluview <- create_truth(fluview = TRUE, year = 2015)
    # expect_equivalent(tmp_fluview, truth_1516)
  
  tmp_ILI <- create_truth(fluview = FALSE, weekILI = valid_ILI, year = 2015)
  expect_equivalent(create_truth(fluview = FALSE, weekILI = valid_ILI, year = 2015),
                    truth_1516)
  
  expect_equivalent(create_truth(fluview = FALSE, weekILI = valid_ILI_state,
                                 year = 2016, challenge = "state_ili"),
                    state_truth_1617)
  
  expect_equivalent(create_truth(fluview = FALSE, weekILI = valid_observe_hosp,
                                 year = 2016, challenge = "hospital"),
                    hosp_truth_1617)
  
})