From 67085cdd1a25c644da9f74736b1c62a150029c6d Mon Sep 17 00:00:00 2001
From: pqiao29 <pqiao@student.unimelb.edu.au>
Date: Thu, 16 Apr 2020 16:52:56 +1000
Subject: [PATCH] minor change
---
R/FIN_plot.R | 8 ++++++--
vignettes/sirplus_intro_v2.Rmd | 2 ++
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/R/FIN_plot.R b/R/FIN_plot.R
index 43258f9..f7fc3f9 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 6f4f6ef..77f48fe 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
--
GitLab