Final Calculation of Total YLDs:
YLD_global_stroke <- YLD_by_severity |> group_by(sex, age) |> reframe(YLD_p = sum(yld_p), YLD_i = sum(yld_i))