From d49c8dd75c09bffad38382eefeaf63cf0375f977 Mon Sep 17 00:00:00 2001 From: Giovanni Charles Date: Wed, 6 Dec 2023 16:36:55 +0000 Subject: [PATCH] Fix PEV EPI parameterisation bug --- R/pev_parameters.R | 4 ++-- tests/testthat/test-pev-epi.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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(