minor change

R/FIN_plot.R

@@ -56,7 +56,7 @@ plot.seiqhrf <- function(x,
                          total_population = NULL, ...) {
     
     if(is.null(method)){
-        plot.sirplus(x, comp_remove = comp_remove,
+        plot_sirplus(x, comp_remove = comp_remove,
                      time_lim = time_lim,
                      ci = ci,
                      sep_compartments = sep_compartments,
@@ -87,6 +87,10 @@ plot.seiqhrf <- function(x,
 }
 
 
+
+
+
+
 #' Wrapper for primary sirplus plotting function
 #'
 #' Flexible function to generate sirplus plots (i.e. compartment counts over 
@@ -120,7 +124,7 @@ plot.seiqhrf <- function(x,
 #' @importFrom dplyr filter
 #' @import ggplot2
 #' @export
-plot.sirplus <- function(x,comp_remove = comp_remove,
+plot_sirplus <- function(x,comp_remove = comp_remove,
                          time_lim = time_lim,
                          ci = ci,
                          sep_compartments = sep_compartments,

vignettes/sirplus_intro_v2.Rmd

@@ -144,6 +144,8 @@ plot(list("Baseline" = baseline_sim, "Closures" = sim_exp, "Closures (2 mo)" = s
             comp_remove = c('s.num', 'r.num'),
             plot_title = 'Closures Experiment')
 
+param
+
 ```
 
 From these results we see that this policy would likey reduce the peak number