diff --git a/vignettes/epinow.Rmd b/vignettes/epinow.Rmd index 508f07bc1..1365e07de 100644 --- a/vignettes/epinow.Rmd +++ b/vignettes/epinow.Rmd @@ -128,7 +128,7 @@ If instead, we wanted to use the Gaussian Process for `testland` and a weekly ra ```r gp <- opts_list(gp_opts(), cases) -gp <- modifyList(gp, list(realland = NULL)) +gp <- modifyList(gp, list(realland = NULL), keep.null = TRUE) rt <- opts_list(rt_opts(), cases, realland = rt_opts(rw = 7)) region_separate_rt <- regional_epinow( reported_cases = cases, diff --git a/vignettes/epinow.Rmd.orig b/vignettes/epinow.Rmd.orig index 4f27e76e9..94a5f8d2b 100644 --- a/vignettes/epinow.Rmd.orig +++ b/vignettes/epinow.Rmd.orig @@ -92,7 +92,7 @@ If instead, we wanted to use the Gaussian Process for `testland` and a weekly ra ```{r regional_epinow_multiple, fig.width = 8} gp <- opts_list(gp_opts(), cases) -gp <- modifyList(gp, list(realland = NULL)) +gp <- modifyList(gp, list(realland = NULL), keep.null = TRUE) rt <- opts_list(rt_opts(), cases, realland = rt_opts(rw = 7)) region_separate_rt <- regional_epinow( reported_cases = cases,