In medewitt/pandemic: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(pandemic)
library(nccovid)

dat <- pull_state_cases()

reports <- generate_underreporting_estimates(dat)

library(dplyr)
reports %>% 
  arrange(-lower) %>% 
  select(country, total_cases, total_deaths, underreporting_estimate_clean) %>% 
  knitr::kable(col.names = c("County", "Total Cases", "Total Deaths", "Likely Percentage<br> of Sympt Cases Reported"))

medewitt/pandemic documentation built on May 5, 2020, 3:40 a.m.