Set confidence interval to true. Ref #94

Author: usr110

R/run_ithim.R

@@ -67,13 +67,14 @@ ithim_calculation_sequence <- function(ithim_object,seed=1){
   ############################
   ## (2) PA PATHWAY
   # Physical activity calculation
-  RR_PA_calculations <- gen_pa_rr(mmets_pp)
+  RR_PA_calculations <- gen_pa_rr(mmets_pp, conf_int = TRUE)
   if(!constant_mode) mmets_pp <- NULL
 
   ############################
   ## (3) COMBINE (1) AND (2)
   # Physical activity and air pollution combined
   RR_PA_AP_calculations <- combined_rr_ap_pa(ind_pa=RR_PA_calculations,ind_ap=RR_AP_calculations)
+  
   RR_PA_calculations <- NULL
   RR_AP_calculations <- NULL
   hb_AP_PA <- health_burden(ind_ap_pa=RR_PA_AP_calculations)