diff --git a/R/pev_parameters.R b/R/pev_parameters.R index c74f3a94..6648dd29 100644 --- 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 index 26541b9c..a1c718cb 100644 --- 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(