df_observed <- data_observed(
data = df_em,
exposure = "Xstar",
outcome = "Y",
confounders = "C1"
)
# Using validation data -----------------------------------------------------
df_validation <- data_validation(
data = df_em_source,
true_exposure = "X",
true_outcome = "Y",
confounders = "C1",
misclassified_exposure = "Xstar"
)
adjust_em(
data_observed = df_observed,
data_validation = df_validation
)
# Using x_model_coefs -------------------------------------------------------
adjust_em(
data_observed = df_observed,
x_model_coefs = c(-2.10, 1.62, 0.63, 0.35)
)
Run the code above in your browser using DataLab