Matching Parameters {#match_parameters .parameters_table}

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))

Pre-matching comparisons {#pre_matching .prematching}

tableone::CreateTableOne(vars = vars, strata = c("cohort"), data = m$match_data, factorVars = factor_variables)

plot_matchvars(d, vars)

Post-matching comparisons {#post_matching .postmatching}

 

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


vcastro/Ri2b2matchcontrols documentation built on May 29, 2019, 11:57 a.m.