targets/forecast.R

In epiforecasts/evaluate-delta-for-forecasting: Evaluating the impact of modelling strain dynamics on short-term COVID-19 forecast performance

# Targets producing forecasts for each week of observed data
forecast_targets <- list(
  tar_target(
    single_retrospective_forecasts,
    do.call(
      forecast,
      c(
        forecast_args,
        retro_args,
        list(
          obs = retro_obs,
          strains = 1,
          overdispersion = overdispersion_scenarios,
          model = single_model
        )
      )
    ),
    cross(retro_obs, overdispersion_scenarios)
  ),
  tar_target(
    two_retrospective_forecasts,
    do.call(
      forecast,
      c(
        forecast_args,
        retro_args,
        list(
          obs = retro_obs,
          strains = 2,
          overdispersion = overdispersion_scenarios,
          variant_relationship = variant_relationship_scenarios,
          model = two_model
        )
      )
    ),
    cross(retro_obs, variant_relationship_scenarios, overdispersion_scenarios)
  )
)