# Goal: scale relative risk to observed exposure level
get_risk(
rr = 1.05,
rr_increment = 10,
erf_shape = "linear",
exp = 10,
cutoff = 5
)
# Goal: determine the absolute risk for high annoyance at specific noise exposure levels
get_risk(
erf_eq = "78.9270-3.1162*c+0.0342*c^2",
exp = c(57.5, 62.5, 67.5, 72.5, 77.5)
)
# Goal: attribute COPD cases to air pollution exposure
# by applying a user-defined exposure response function,
# e.g. MR-BRT curves from Global Burden of Disease study.
get_risk(
erf_eq = splinefun(
x = c(0, 5, 10, 15, 20, 25, 30, 50, 70, 90, 110),
y = c(1.00, 1.04, 1.08, 1.12, 1.16, 1.20, 1.23, 1.35, 1.45, 1.53, 1.60),
method = "natural"),
exp = c(8, 9, 10)
)
Run the code above in your browser using DataLab