Description Usage Arguments Value Examples
This function will run additional simulations of the unobserved confounder and add the results to the object returned from the previous call to OVtool::ov_sim
1 | add_reps(OVtool_results, model_results, more_reps)
|
OVtool_results |
The object returned from OVtool::ov_sim() |
model_results |
The object returned from OVtool::outcome_model() |
more_reps |
The number of additional repetitions the user wants to simulate the unobserved confounder |
add_reps returns an updated object returned from OVtool::ov_sim()
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | data(sud)
sud = data.frame(sud[sample(1:nrow(sud),100),])
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 = .1,
rho_grid = .1,
n_reps = 2,
progress=FALSE)
additional = add_reps(OVtool_results = ovtool_results,
model_results = outcome_mod,
more_reps = 2)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.