added hosp plots to vignette

R/get_weekly_local.R

@@ -25,7 +25,7 @@
 #
 #' }
 #' 
-#' @importFrom tidyr pivot_longer
+#' @importFrom tidyr pivot_wider
 #' 
 get_weekly_local <- function(sim, 
                              market.share = .04,
@@ -81,7 +81,7 @@ get_weekly_local <- function(sim,
       scale_x_continuous(breaks = seq(0,t_sz,5), labels= seq(0,t_sz,5))
   }
   
-  res <- hosp_wk_df %>% pivot_wider(names_from = group, values_from = hosp_icu)
+  res <- hosp_wk_df %>% tidyr::pivot_wider(names_from = group, values_from = hosp_icu)
                     
   return(list("plot" = gg, "result" = res))
  

vignettes/sirplus_intro.Rmd

@@ -110,7 +110,7 @@ closures_RampOnday7 <- function(t) {
     ifelse(t < 7, 10, ifelse(t <= 14, 10 - (t-7)*(10 - 5)/7, 5))
 }
 
-closures_sim <- simulate.seiqhrf(s.num = s.num, i.num = i.num, 
+closures_sim <- simulate_seiqhrf(s.num = s.num, i.num = i.num, 
                                  q.num = q.num, h.num = h.num,
                                  act.rate.e = closures_RampOnday7(1:366),
                                  act.rate.i = closures_RampOnday7(1:366))