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_data %>%
  dplyr::group_by(facility) %>%
  skim()


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