data-raw/hospital-rates.R

In grattan/covidReff: Simulate Covid

library(tidyverse)

hospital_rates <- tribble(
  ~age, ~cases,  ~hosp_rate, ~icu_rate, ~death_rate,
  "0-9",   1486,    2.9,  0.2,  0.00,
  "10-19", 2390,    1.4,  0.2,  0.00,
  "20-29", 5990,    3.0,  0.3,  0.02,
  "30-39", 4719,    4.7,  0.7,  0.05,
  "40-49", 3409,    8.1,  1.5,  0.03,
  "50-59", 3011,   12.8,  3.6,  0.53,
  "60-69", 2008,   22.1,  5.7,  1.82,
  "70-79", 1344,   38.9,  7.7,  11.70,
  "80-89", 1230,   53.6,  2.7,  31.04,
  "90+",    783,   46.2,  0.2,  40.5,
) %>%
  select(-cases) %>%
  mutate(across(ends_with("rate"), ~ ./100))