df_observed <- data_observed(
data = df_om,
exposure = "X",
outcome = "Ystar",
confounders = "C1"
)
# Using validation data -----------------------------------------------------
df_validation <- data_validation(
data = df_om_source,
true_exposure = "X",
true_outcome = "Y",
confounders = "C1",
misclassified_outcome = "Ystar"
)
adjust_om(
data_observed = df_observed,
data_validation = df_validation
)
# Using y_model_coefs -------------------------------------------------------
adjust_om(
data_observed = df_observed,
y_model_coefs = c(-3.1, 0.6, 1.6, 0.4)
)
Run the code above in your browser using DataLab