add_reps: add_reps

Description Usage Arguments Value Examples

View source: R/add_reps.R

Description

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

Usage

1
add_reps(OVtool_results, model_results, more_reps)

Arguments

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

Value

add_reps returns an updated object returned from OVtool::ov_sim()

Examples

 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)

OVtool documentation built on Nov. 2, 2021, 9:07 a.m.