Number needed to harm (NNH) — sign-reversed NNT
Examples
# Exposure raises the bad outcome from 10% to 20% -> NNH = 1/0.10 = 10.
res <- number_needed_to_harm(20, 80, 10, 90)
res$estimate # people exposed to cause one extra harm
#> [1] 10
# NNH is the reciprocal of the (absolute) risk difference, like NNT but
# for a harmful exposure.
1 / abs(risk_difference(20, 80, 10, 90)$estimate)
#> [1] 10
