# NOT RUN {
multi_bound(multi_bias(confounding()),
RRAUc = 2.2, RRUcY = 1.7)
biases <- multi_bias(confounding(), selection("S = U"),
misclassification("exposure",
rare_outcome = TRUE, rare_exposure = FALSE))
print(biases)
multi_bound(biases,
RRAUc = 3, RRUcY = 2, RRSUsA1 = 2.3,
RRSUsA0 = 1.7, ORYAaS = 5.2)
# }
Run the code above in your browser using DataLab