df_observed <- data_observed(
data = df_em_sel,
exposure = "Xstar",
outcome = "Y",
confounders = "C1"
)
# Using validation data -----------------------------------------------------
df_validation <- data_validation(
data = df_em_sel_source,
true_exposure = "X",
true_outcome = "Y",
confounders = "C1",
misclassified_exposure = "Xstar",
selection = "S"
)
adjust_em_sel(
data_observed = df_observed,
data_validation = df_validation
)
# Using x_model_coefs and s_model_coefs -------------------------------------
adjust_em_sel(
data_observed = df_observed,
x_model_coefs = c(-2.78, 1.62, 0.58, 0.34),
s_model_coefs = c(0.04, 0.18, 0.92, 0.05)
)
Run the code above in your browser using DataLab