Adding incidence, mortality and lethality rates to the downloaded data

This function adds the incidence, mortality and lethality rates to a given data set downloaded by the covid19br::downloadCovid19() function.

Usage

add_epi_rates(data, ...)

Arguments

data

a data set downloaded using the covid19br::downloadCovid19() function.

...

further arguments passed to other methods.

Value

the data set with the added incidence, mortality and lethality rates.

Details

The function add_epi_rates() was designed to work with the original names of the variables accumDeaths, accummCases and pop available in the data set downloaded by the covid19br::downloadCovid19(). For this reason, this function must be used before any change in such variable names.

Author

Fabio N. Demarqui fndemarqui@est.ufmg.br

Examples

# \donttest{
library(covid19br)
library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union

brazil <- downloadCovid19(level = "brazil")
#> Downloading COVID-19 data from the official Brazilian repository: https://covid.saude.gov.br/
#> Please, be patient...
#> Done!
brazil <- add_epi_rates(brazil)
glimpse(brazil)
#> Rows: 1,327
#> Columns: 12
#> $ date         <date> 2020-02-25, 2020-02-26, 2020-02-27, 2020-02-28, 2020-02-…
#> $ epi_week     <int> 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11…
#> $ newCases     <int> 0, 1, 0, 0, 1, 0, 0, 0, 1, 4, 6, 6, 6, 0, 9, 18, 25, 21, …
#> $ accumCases   <int> 0, 1, 1, 1, 2, 2, 2, 2, 3, 7, 13, 19, 25, 25, 34, 52, 77,…
#> $ newDeaths    <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
#> $ accumDeaths  <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
#> $ newRecovered <int> 0, 1, 1, 0, 1, 1, 0, 0, 1, 4, 6, 7, 6, 1, 6, 16, 23, 24, …
#> $ newFollowup  <int> 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 7, 12, 19, 24, 28, 36, 54, …
#> $ pop          <dbl> 210147125, 210147125, 210147125, 210147125, 210147125, 21…
#> $ incidence    <dbl> 0.0000000000, 0.0004758571, 0.0004758571, 0.0004758571, 0…
#> $ lethality    <dbl> 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.0…
#> $ mortality    <dbl> 0.0000000000, 0.0000000000, 0.0000000000, 0.0000000000, 0…
# }