# NOT RUN {
# Calculate an E-value for unmeasured confounding
multi_evalue(est = RR(4), biases = confounding())
# Equivalent to
evalues.RR(4)
# Calculate a multi-bias E-value for selection bias
# and misclassification
multi_evalue(est = RR(2.5),
biases = multi_bias(selection("selected"),
misclassification("outcome")))
# Calculate a multi-bias E-value for all three
# available types of bias
biases <- multi_bias(confounding(),
selection("general", "S = U"),
misclassification("exposure",
rare_outcome = TRUE))
multi_evalue(est = RR(2.5), biases = biases)
# Calculate a multi-bias E-value for a non-rare OR
# using the square root approximation
multi_evalue(est = OR(2.5, rare = FALSE), biases = biases)
# Calculate a non-null multi-bias E-value
multi_evalue(est = RR(2.5), biases = biases, true = 2)
# }
Run the code above in your browser using DataLab