From 0832278767c66f8a2766b9cc20018d74e80951d8 Mon Sep 17 00:00:00 2001 From: Pratik Gupte Date: Wed, 23 Aug 2023 14:50:42 +0100 Subject: [PATCH] Update Vacamole tests with rate interventions allowed --- tests/testthat/test-vacamole.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-vacamole.R b/tests/testthat/test-vacamole.R index 8d33db82..43558ad9 100644 --- a/tests/testthat/test-vacamole.R +++ b/tests/testthat/test-vacamole.R @@ -222,7 +222,7 @@ test_that("Output of the Vacamole epidemic model R", { epidemic_vacamole_r( population = uk_population, infection = infect, - intervention = no_contacts_intervention(uk_population), + intervention = list(contacts = no_contacts_intervention(uk_population)), vaccination = double_vaccination, time_end = 100, increment = 1.0 ) @@ -231,7 +231,7 @@ test_that("Output of the Vacamole epidemic model R", { data <- epidemic_vacamole_r( population = uk_population, infection = infect, - intervention = no_contacts_intervention(uk_population), + intervention = list(contacts = no_contacts_intervention(uk_population)), vaccination = double_vaccination, time_end = 100, increment = 1.0 ) @@ -300,7 +300,7 @@ test_that("Equivalence of vacamole model R and Cpp", { data_r <- epidemic_vacamole_r( population = uk_population, infection = infect, - intervention = multi_intervention, + intervention = list(contacts = multi_intervention), vaccination = double_vaccination, time_end = 100, increment = 1.0 ) @@ -308,7 +308,7 @@ test_that("Equivalence of vacamole model R and Cpp", { data_cpp <- epidemic_vacamole_cpp( population = uk_population, infection = infect, - intervention = multi_intervention, + intervention = list(contacts = multi_intervention), vaccination = double_vaccination, time_end = 100, increment = 1.0 )