Example: Disability Weights & Severity Levels

• Assumed Proportion of Stroke Severity

  • Mild: 50.3%
  • Moderate: 25.3%
  • Severe: 24.4%

• Assigning Severity Proportions:

  dwsev2019 <- hmsidwR::disweights |>
    select(cause1, severity, dw) |>
    drop_na() |>
    mutate(severity_n = case_when(
      severity == "mild" ~ 0.503,
      severity == "moderate" ~ 0.253,
      severity == "severe" ~ 0.244))

  dw_stroke <- dwsev2019 |>
    filter(cause1 == "Stroke") |>
    group_by(severity, severity_n) |>
    reframe(avg_dw = mean(dw))