Calculate risk ratios and risk differences
risk(data, exposure, outcome, ci_level = 95)
A dataframe
Variable giving the levels of the outcome
Variable giving cases (1) or non-cases (0)
a string giving the confidence interval
A dataframe with the risk ratio, risk difference and confidence intervals
# Data from stratum 1 of table 15-1., p260
dat <- data.frame(
exposure_var = c(rep(1, 8), rep(0, 5), rep(1, 98), rep(0, 115)),
outcome_var = c(rep(1, 8), rep(1, 5), rep(0, 98), rep(0, 115)),
stringsAsFactors = FALSE
)
risk(data = dat, exposure = exposure_var, outcome = outcome_var)
#> # A tibble: 2 × 10
#> exposure_var n outcome risk risk_ratio rr_lci rr_uci risk_diff rd_lci
#> <dbl> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 0 120 5 4.17 1 0.337 2.96 0 -6.20
#> 2 1 106 8 7.55 1.81 0.611 5.37 3.38 -2.82
#> # ℹ 1 more variable: rd_uci <dbl>