pepe_prime comments on Wear a Helmet While Driving a Car

[pepe_prime]

For injuries

R> sum(sapply(seq((80-30), 0), function(t) { 5000 * 3.431544214e-09 * t * 0.97^t * 0.63 * 50000 }))
# [1] 264.9444032

Rate should be 1.634253963e-08, yielding about $1261.78 lifetime loss.