Combine an Infectious Disease Model To a Demographic Model

Similarly to combine_strat_model_output this functions reduces the dimension of model output into just the demographic components.

combine_to_age_model(
  df,
  age_com = NULL,
  compartments = NULL,
  hold_out_var = NULL,
  total_pop = TRUE
)

Arguments

df	A dataframe of model output.
age_com	Integer indicating the number of age compartments.
compartments	A character vector of the disease model compartments to combine.
hold_out_var	A character vector specifying the variables to keep unchanged. Defaults to NULL
total_pop	A logical indicating whether to calculate the total population. Defaults to true.

Value

A dataframe which summarises the demographic process of a model.

See also

combine_strat_model_output

Examples

df <- data.frame(S1 = c(1,2), S2 = c(1, 3), E1 = c(4, 1), E2 = c(3, 4), time = c(1, 2))

combine_to_age_model(df, age_com = 2, hold_out_var = "time")
#>   time age_group_1 age_group_2  N
#> 1    1           5           4  9
#> 2    2           3           7 10