Calculating the Transmission Increase from Factors

Usage,

`calculate_transmission_increase(R_w, rho, D = 4.7, omega = 0)`

## Arguments

- R_w
a numeric, the baseline effective reproduction number

- rho
a numeric, the estimated transmission advantage

- D
a numeric, the generation time (average)

- omega
a numeric with default of NULL indicating proportion of the
population that has immunity against earlier variants

## Examples

```
c(4,6) * calculate_transmission_increase(R_w = .8, .43, D = 5.2, omega = NULL)
#> [1] 11.18 16.77
c(4,6) * calculate_transmission_increase(R_w = .8, .43, D = 5.2, omega = .25)
#> [1] 33.54 50.31
```