# NOT RUN {
data(sud)
sud = data.frame(sud)
sud$treat = ifelse(sud$treat == "A", 1, 0)
sud$wts = sample(seq(1, 10, by=.01), size=nrow(sud), replace = TRUE)
outcome_mod = outcome_model(data = sud,
weights = "wts",
treatment = "treat",
outcome = "eps7p_6",
model_covariates = c("sfs8p_0", "eps7p_0"),
estimand = "ATE")
ovtool_results = ov_sim(model_results=outcome_mod,
plot_covariates=c("sfs8p_0"),
es_grid = NULL,
rho_grid = NULL,
n_reps = 2,
progress=FALSE)
summary = summary.ov(object = ovtool_results,
model_results = outcome_mod,
sig_level=0.05,
progress = FALSE)
# }
Run the code above in your browser using DataLab