make_duration_size_table: Make seeding event duration vs event size table

In epiforecasts/WuhanSeedingVsTransmission: The transmissibility of novel Coronavirus in the early stages of the 2019-20 outbreak in Wuhan

Description

Make seeding event duration vs event size table

Usage

make_duration_size_table(
  results = NULL,
  required_var = c("event_duration", "event_size", "R0"),
  spread_var = "event_duration",
  spread_value = "R0",
  rename_var = "event_size",
  renamed_var = "Transmission event size vs. Transmission event duration (days)"
)

Arguments

results	The output from summarised_end_r0
required_var	A character string of variables to select for the table.
spread_var	A character variable indicating the variable to spread.
spread_value	A character variable to use as the spreading value.
rename_var	A character variable to rename.
renamed_var	A character variable indicating the name of the renamed variable

Value

A data.frame comparing transmission event size with duration

Author(s)

Sam Abbott

Examples

## Example
results <- data.frame(R0 = runif(10, 0, 1), 
                      event_duration = 1:10, 
                      event_size = rep(c(1,2), 5),
                      tmp = 1:10)
                      
make_duration_size_table(results)


## Code
make_duration_size_table

epiforecasts/WuhanSeedingVsTransmission documentation built on Feb. 12, 2020, 9:30 p.m.