Risk difference for a 2x2 table
Examples
# Absolute difference in risk between exposed and unexposed.
res <- risk_difference(20, 80, 10, 90)
res$estimate # 0.20 - 0.10 = 0.10
#> [1] 0.1
c(lower = res$ci_lower, upper = res$ci_upper)
#> lower upper
#> 0.002001801 0.197998199
# RD = 0 means equal risk; sign shows direction.
risk_difference(10, 90, 20, 80)$estimate # -0.10 (exposed lower)
#> [1] -0.1
