diff --git a/R/FIN_plot.R b/R/FIN_plot.R
index 43258f9c17897799a989fcda1625f13dc9550415..f7fc3f91af4d25e630623b7c2c0be78c73149db1 100644
--- a/R/FIN_plot.R
+++ b/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,
diff --git a/vignettes/sirplus_intro_v2.Rmd b/vignettes/sirplus_intro_v2.Rmd
index 6f4f6ef46a9c27f142bc542eae032b98640b669d..77f48fe936ae18a539a4ba84334adc9b6571534d 100644
--- a/vignettes/sirplus_intro_v2.Rmd
+++ b/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