Summarise Forecast Cases

Usage

summarise_case_forecast(pred_cases)

Arguments

pred_cases: A dataframe as produced by EpiSoon::forecast_cases.

Value

A summarised dataframe.

Examples

if (FALSE) {
## Example forecast
forecast <- forecast_rt(EpiSoon::example_obs_rts,
  model = function(...) {
    EpiSoon::bsts_model(
      model =
        function(ss, y) {
          bsts::AddSemilocalLinearTrend(ss, y = y)
        }, ...
    )
  },
  horizon = 7, samples = 10
)

## Forecast cases
case_forecast <- forecast_cases(
  EpiSoon::example_obs_cases,
  forecast,
  EpiSoon::example_serial_interval
)
## Summarise case forecast
summarise_case_forecast(case_forecast)
}