In Thaliehln/timci: Data management and visualisation for the TIMCI project

library(dplyr)
library(magrittr)
library(skimr)
knitr::opts_chunk$set(echo = FALSE,
                      warning = FALSE,
                      message = FALSE)
options(knitr.table.format = "pipe")

locked_day0_data <- params$locked_day0_data
locked_allday7fu_data <- params$locked_allday7fu_data
locked_allday28fu_data <- params$locked_allday28fu_data
locked_hospit_data <- params$locked_hospit_data
locked_spa_sco_data <- params$locked_spa_sco_data
spa_cgei_data <- params$spa_cgei_data
locked_spa_hcpi_data <- params$locked_spa_hcpi_data
spa_fa_data <- params$spa_fa_data

\newpage

r intro_str

write(formats2h2("Explore Day 0 data"), stderr())

r if (Sys.getenv('TIMCI_COUNTRY') == "Tanzania" || Sys.getenv('TIMCI_COUNTRY') == "India"){'Pragmatic cluster Randomised Controlled Trial (RCT)'} else{'Longitudinal Observational Study (LS)'}

Day 0 data

locked_day0_young_infant_data <- locked_day0_data %>%
  dplyr::filter(yg_infant == 1)
skimr::skim(locked_day0_young_infant_data)

Service Provision Assessment (SPA)

Sick child observation data

locked_spa_sco_yg_infant_data <- NULL

names(locked_spa_sco_data) <- gsub("-", "_", names(locked_spa_sco_data), fixed = TRUE)
locked_spa_sco_yg_infant_data <- locked_spa_sco_data %>%
  dplyr::filter(child_identification_young_infant == 1)

skimr::skim(locked_spa_sco_yg_infant_data)

Thaliehln/timci documentation built on April 8, 2024, 3:38 p.m.