Parameter Value
-------------------------- ----------------------------------------
Case Patients r params$case_patientset_name
Control Pool Patients r params$controlpool_patientset_name
Control-to-Case Ratio r m$controls_to_match
:1
Match Variables r m$match_variables
Matching Technique Coarsened exact matching (cem)
m<-params$match_data vars <- m$match_variables factor_variables <- names(which(sapply(m$match_data[, match_variables], is.factor) == TRUE))
tableone::CreateTableOne(vars = vars, strata = c("cohort"), data = m$match_data, factorVars = factor_variables) plot_matchvars(d, vars)
Number of matching strata: r nrow(m$strata_summary)
Number of strata with insufficient controls: r nrow(filter(m$strata_summary, controls_needed>Control))
Cohort Comparison (after matching)
final.matched <- m$match_data %>% filter(cohort == "Case" | k2k_control == TRUE) tableone::CreateTableOne(vars = m$match_variables, strata = c("cohort"), data = final.matched, factorVars = factor_variables) plot_matchvars(final.matched, vars) m$cem_result$imbalance$L1
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.