Define a list of _opts() to pass to regional_epinow()_opts() accepting arguments. This is useful when different settings are needed between regions within a single regional_epinow() call. Using opts_list() the defaults can be applied to all regions present with an override passed to regions as necessary (either within opts_list() or externally).
opts_list(opts, reported_cases,...)
Arguments
opts: An _opts() function call such as rt_opts().
reported_cases: A data frame containing a region variable indicating the target regions.
...: Optional override for region defaults. See the examples for use case.
Returns
A named list of options per region which can be passed to the _opt
accepting arguments of regional_epinow.
Examples
# uses example case vectorcases <- example_confirmed[1:40]cases <- data.table::rbindlist(list( data.table::copy(cases)[, region :="testland"], cases[, region :="realland"]))# default settingsopts_list(rt_opts(), cases)# add a weekly random walk in reallandopts_list(rt_opts(), cases, realland = rt_opts(rw =7))# add a weekly random walk externallyrt <- opts_list(rt_opts(), cases)rt$realland$rw <-7rt