From c5e863fafcadc1c098f50f76d1bcbd43c3e6fac3 Mon Sep 17 00:00:00 2001 From: jvillacampa Date: Thu, 20 Dec 2018 15:55:04 +0000 Subject: [PATCH] little fix in pcf --- 2.deprivation_analysis.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/2.deprivation_analysis.R b/2.deprivation_analysis.R index 6f7980d..6db8ba3 100755 --- 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) } ##################################################.