little fix in pcf

Public-Health-Scotland · Dec 20, 2018 · c5e863f · c5e863f
1 parent fcd25f1
commit c5e863f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/2.deprivation_analysis.R b/2.deprivation_analysis.R
@@ -342,7 +342,8 @@ analyze_deprivation <- function(filename, yearstart, yearend, time_agg,
              upci = case_when(est_pop < denominator ~ rate,
                               est_pop >= denominator ~ 
                                 (2*numerator+1.96*1.96+1.96*sqrt(1.96*1.96+4*numerator*(1-rate/100))*pcf)
-                              /  (2*(denominator+1.96*1.96))*100))
+                              /  (2*(denominator+1.96*1.96))*100)) %>% 
+      select(-pcf, -est_pop)
   }
 
   ##################################################.