Merge pull request #41 from katilingban/dev

update effectiveness calculations
katilingban · Dec 16, 2020 · 3fe3d14 · 3fe3d14
2 parents d318955 + ff3834e
commit 3fe3d14
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 7 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# Sudan CMAM Dashboard v0.1.12
+
+In this version:
+
+* re-calculated effectiveness metrics
+
 # Sudan CMAM Dashboard v0.1.11
 
 In this version:

diff --git a/README.md b/README.md
@@ -2,7 +2,7 @@
 
 <!--- start badges -->
 [![Project Status: Active – The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)
-![version](https://img.shields.io/badge/version-0.1.11-blue.svg)
+![version](https://img.shields.io/badge/version-0.1.12-blue.svg)
 ![license](https://img.shields.io/badge/license-GPL3-blue.svg)
 [![DOI](https://zenodo.org/badge/290984010.svg)](https://zenodo.org/badge/latestdoi/290984010)
 <!--- end badges -->

diff --git a/sudanCMAMdashboard.Rmd b/sudanCMAMdashboard.Rmd
@@ -2946,7 +2946,7 @@ Row
 ### Number of lives saved - Aljazira
 
 ```{r}
-lsAljazira <- round(0.1975 * 850, digits = 2)
+lsAljazira <- round(0.0745 * 850, digits = 2)
 
 renderValueBox({
   valueBox(
@@ -2961,7 +2961,7 @@ renderValueBox({
 ### Number of lives saved - Kassala
 
 ```{r}
-lsKassala <- round(0.1975 * 12035, digits = 2)
+lsKassala <- round(0.0745 * 12035, digits = 2)
 
 renderValueBox({
   valueBox(
@@ -2976,7 +2976,7 @@ renderValueBox({
 ### Number of lives saved - North Darfur
 
 ```{r}
-lsNorthDarfur <- round(0.1975 * 30322, digits = 2)
+lsNorthDarfur <- round(0.0745 * 30322, digits = 2)
 
 renderValueBox({
   valueBox(
@@ -2994,7 +2994,7 @@ Row
 ### Years of life lost (YLL) averted - Aljazira
 
 ```{r}
-yllAljazira <- 65 - 1.5
+yllAljazira <- 65 - 1.33
 yllAljazira <- round(lsAljazira * yllAljazira, digits = 2)
 
 renderValueBox({
@@ -3010,7 +3010,7 @@ renderValueBox({
 ### Years of life lost (YLL) averted - Kassala
 
 ```{r}
-yllKassala <- 65 - 1.5
+yllKassala <- 65 - 1.08
 yllKassala <- round(lsKassala * yllKassala, digits = 2)
 
 renderValueBox({
@@ -3026,7 +3026,7 @@ renderValueBox({
 ### Years of life lost (YLL) averted - North Darfur
 
 ```{r}
-yllNorthDarfur <- 65 - 1.5
+yllNorthDarfur <- 65 - 1.17
 yllNorthDarfur <- round(lsNorthDarfur * yllNorthDarfur, digits = 2)
 
 renderValueBox({