Fixed issues in exposure timings

Author: dchodge

.DS_Store

@@ -1,5 +1,5 @@
 outputs/fits/*
-
+vignettes/int/*
 # Except for the simulate_data directory
 !outputs/fits/simulated_data/
 

.gitignore

@@ -283,6 +283,7 @@ plot_inf_rec <- function(model_summary, file_path) {
     ggsave(here::here(file_path, "infection_recov.png"), height = 10, width = 10)
 }
 
+
 plot_cop_rec <- function(model_summary, file_path) {
 
     fitfull <- model_summary$fit    

R/.DS_Store

@@ -243,8 +243,10 @@ createSeroJumpModel <- function(
         sample(1:length(exp_prior_list[[i]]), 1, prob = exp_prior_list[[i]]) 
     }
 
-    check_exposures_times(data_sero, data_known, exposureTypes, exposureFitted, exposurePriorTime, exposurePriorTimeType)
-
+    if (!is.null(data_known)) {
+        check_exposures_times(data_sero, data_known, exposureTypes, exposureFitted, exposurePriorTime, exposurePriorTimeType)
+    }
+    
     data_t$exp_list <- exp_prior_list
     data_t$exp_prior <- exp_prior