wfhz-muac-bridge/script.R at main · mphimo/wfhz-muac-bridge · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
# ==============================================================================
#
# ==============================================================================

## ---- Load project-specific libraries ----------------------------------------

library(cyphr)
library(dplyr)
library(tidyr)
library(mwana)
library(rsample)
library(lubridate)
library(Metrics)
library(gt)
library(ggplot2)

## ---- Retrieve secret key ----------------------------------------------------

key <- data_key(".", Sys.getenv("path_secret_key"))

## ---- Load project-specific functions ----------------------------------------

for (i in list.files("R", full.names = TRUE)) source(i)

## ---- Read data --------------------------------------------------------------

source("scripts/read-data.R")

## ---- Data Wrangling ---------------------------------------------------------

source("scripts/data-wrangling.R")

## ---- Data Plausibility Check ------------------------------------------------

source("scripts/plausibility-check.R")

## ---- Split feature extraction and testing sets ------------------------------

source("scripts/split-feature-extract-testing-sets.R")

## ---- Extract insights from the feature extraction set -----------------------

source("scripts/extract-features-in-flawless-surveys-muac.R")
source("scripts/extract-features-in-flawless-surveys-mfaz.R")
source("scripts/extract-features-in-faulty-surveys-muac.R")
source("scripts/extract-features-in-faulty-surveys-mfaz.R")

## ---- Model ------------------------------------------------------------------

source("scripts/model-flawless-data-muac.R")
source("scripts/model-flawless-data-mfaz.R")
source("scripts/model-faulty-data-muac.R")
source("scripts/model-faulty-data-mfaz.R")
source("scripts/final-outputs.R")


# ============================  End of Workflow ================================