Seems to all be working with non-timevarying demographics. Need to ma…

…ke sure that population groups get assigned in order.
seroanalytics · May 14, 2024 · 876849e · 876849e
1 parent 39bc522
commit 876849e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/helpers.R b/R/helpers.R
@@ -919,8 +919,11 @@ setup_stratification_table <- function(par_tab, demographics){
       return(NA)
     }
   }
+
+  ## Skip any infection history prior parameters
+  skip_pars <- c("infection_model_prior_shape1","infection_model_prior_shape2")
   ## Creates an estimated parameter entry for each 
-  stratifications <- unique(unlist(sapply(par_tab$stratification,function(x) strsplit1(x))))
+  stratifications <- unique(unlist(sapply(par_tab[!(par_tab$names %in% skip_pars),"stratification"],function(x) strsplit1(x))))
   stratifications <- stratifications[!is.na(stratifications)]
 
   scale_table <- vector(mode="list",length=length(stratifications))