generation_time <- Gamma(
  shape = Normal(1.3, 0.3),
  rate = Normal(0.37, 0.09),
  max = 14
)
incubation_period <- LogNormal(
  meanlog = Normal(1.6, 0.06),
  sdlog = Normal(0.4, 0.07),
  max = 14
)
reporting_delay <- LogNormal(mean = 2, sd = 1, max = 10)

reported_cases <- example_confirmed[1:40]

# estimate Rt and nowcast/forecast cases by date of infection
epinow(
  data = reported_cases,
  generation_time = gt_opts(generation_time),
  rt = rt_opts(prior = LogNormal(mean = 2, sd = 0.1)),
  delays = delay_opts(incubation_period + reporting_delay),
  forecast = NULL # as suggested in docs but errors
)

Logging threshold set at INFO for the name logger
Writing EpiNow2 logs to the console and: /var/folders/vr/dn4r1_zj417drd1zr9301trw0000gp/T//RtmpdLzOzR/regional-epinow/2020-04-01.log.
Logging threshold set at INFO for the name logger
Writing EpiNow2.epinow logs to the console and: /var/folders/vr/dn4r1_zj417drd1zr9301trw0000gp/T//RtmpdLzOzR/epinow/2020-04-01.log.

Error in if (horizon != 0) { : argument is of length zero