# NOT RUN {
data(package="rollmatch", "rem_synthdata_small")
formula <- as.formula(treat ~ qtr_pmt + age + is_male + is_white +
is_disabled + is_esrd + months_dual + chron_num + lq_ed +
yr_ed2 + lq_ip + yr_ip2)
vars <- all.vars(formula); treat <- vars[1]
tm <- "quarter"; entry <- "entry_q"; id <- "indiv_id"
model_type <- "logistic"; match_on <- "logit"
reduced_data <- chr_2_factor(rem_synthdata_small, vars)
model_output <- runModel(model_type, match_on, rem_synthdata_small, id, treat, entry,
tm, formula)
head(model_output)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace