Fix PEV EPI parameterisation bug

mrc-ide · Jan 4, 2024 · d49c8dd · d49c8dd
1 parent 73cbfb4
commit d49c8dd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/pev_parameters.R b/R/pev_parameters.R
@@ -135,8 +135,8 @@ set_pev_epi <- function(
   parameters$pev_epi_booster_timestep <- booster_timestep
   parameters$pev_epi_min_wait <- min_wait
   parameters$pev_epi_booster_coverage <- booster_coverage
-  parameters$pev_epi_booster_timed_coverage <- booster_timed_coverage
-  parameters$pev_epi_booster_timed_coverage_timestep <- booster_timed_coverage_timestep
+  parameters$pev_epi_timed_booster_coverage <- booster_timed_coverage
+  parameters$pev_epi_timed_booster_coverage_timestep <- booster_timed_coverage_timestep
   parameters$pev_epi_booster_coverage <- booster_coverage
   parameters$pev_epi_profile_indices <- profile_indices
   parameters$pev_epi_seasonal_boosters <- seasonal_boosters

diff --git a/tests/testthat/test-pev-epi.R b/tests/testthat/test-pev-epi.R
@@ -68,8 +68,8 @@ test_that('I can add time varying booster coverage to the pev epi strategy', {
   )
   expect_equal(parameters$pev_epi_booster_timestep, c(18, 36) * 30)
   expect_equal(parameters$pev_epi_booster_coverage, c(.9, .8))
-  expect_equal(parameters$pev_epi_booster_timed_coverage, c(.5, .7))
-  expect_equal(parameters$pev_epi_booster_timed_coverage_timestep, c(365, 2*365))
+  expect_equal(parameters$pev_epi_timed_booster_coverage, c(.5, .7))
+  expect_equal(parameters$pev_epi_timed_booster_coverage_timestep, c(365, 2*365))
   expect_equal(parameters$pev_profiles, list(rtss_profile, rtss_booster_profile, rtss_booster_profile))
 
   expect_error(