From f61fe042ef13aff4a9bed4731c8b5ad0ece6bde8 Mon Sep 17 00:00:00 2001 From: KeithJF82 Date: Tue, 28 May 2024 17:43:43 +0100 Subject: [PATCH] Update main.R --- R/main.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/main.R b/R/main.R index 36860c2..4e27033 100644 --- a/R/main.R +++ b/R/main.R @@ -458,7 +458,7 @@ Model_Run_Many_Reps <- function(FOI_spillover = 0.0,R0 = 1.0,vacc_data = list(), parameter_setup <- function(FOI_spillover=0.0,R0=1.0,vacc_data=list(),pop_data=list(),year0=1940, years_data=c(1941:1942),mode_start=0,vaccine_efficacy=1.0,start_SEIRV=list(),dt=1.0){ - assert_that(FOI_spillover>=0.0) + assert_that(FOI_spillover>0.0) assert_that(R0>0.0) assert_that(length(pop_data[,1])>1,msg="Need population data for multiple years") assert_that(length(pop_data[1,])>1,msg="Need population data for multiple age groups")