# uses example case vector
cases <- example_confirmed[1:40]
cases <- data.table::rbindlist(list(
data.table::copy(cases)[, region := "testland"],
cases[, region := "realland"]
))
# default settings
opts_list(rt_opts(), cases)
# add a weekly random walk in realland
opts_list(rt_opts(), cases, realland = rt_opts(rw = 7))
# add a weekly random walk externally
rt <- opts_list(rt_opts(), cases)
rt$realland$rw <- 7
rt
Run the code above in your browser using DataLab