From 3766b11659acb432f9f45de18be6abb4e772f7d2 Mon Sep 17 00:00:00 2001
From: kaitejohnson <uox1@cdc.gov>
Date: Sat, 20 Jul 2024 16:11:00 -0400
Subject: [PATCH] remove horizons from phase fig

---
 wweval/R/ms_fig4.R                        | 9 +--------
 wweval/man/make_fig4_rel_crps_by_phase.Rd | 9 +--------
 2 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/wweval/R/ms_fig4.R b/wweval/R/ms_fig4.R
index fea33259..e0dd2b6f 100644
--- a/wweval/R/ms_fig4.R
+++ b/wweval/R/ms_fig4.R
@@ -409,19 +409,12 @@ make_plot_coverage_range <- function(scores_quantiles, ranges) {
 #' @param scores A tibble of scores by location, forecast date, date and model,
 #' containing the outputs of `scoringutils::score()` on samples plus metadata
 #' transformed into a tibble.
-#' @param horizons_to_show A vector of strings indicating the names of the
-#' `horizon` that we want to show on the plot, must be a subset of
-#' `nowcast`, `1 wk`, `2 wks`,`3 wks`, `4 wks` and `overall`
 #'
 #' @return A ggplot object containing plots of the distribution of relative
 #' CRPS scores, colored by horizon, stratified by epidemic phase, across
 #' locations and forecast dates
 #' @export
-make_fig4_rel_crps_by_phase <- function(scores,
-                                        horizons_to_show = c(
-                                          "nowcast",
-                                          "1 wk", "4 wks"
-                                        )) {
+make_fig4_rel_crps_by_phase <- function(scores) {
   scores_w_fig_order <- scores |>
     order_phases()
 
diff --git a/wweval/man/make_fig4_rel_crps_by_phase.Rd b/wweval/man/make_fig4_rel_crps_by_phase.Rd
index b74cd541..f13fdfbe 100644
--- a/wweval/man/make_fig4_rel_crps_by_phase.Rd
+++ b/wweval/man/make_fig4_rel_crps_by_phase.Rd
@@ -4,19 +4,12 @@
 \alias{make_fig4_rel_crps_by_phase}
 \title{Make figure that stratifies scores by epidemic phase across}
 \usage{
-make_fig4_rel_crps_by_phase(
-  scores,
-  horizons_to_show = c("nowcast", "1 wk", "4 wks", "overall")
-)
+make_fig4_rel_crps_by_phase(scores)
 }
 \arguments{
 \item{scores}{A tibble of scores by location, forecast date, date and model,
 containing the outputs of \code{scoringutils::score()} on samples plus metadata
 transformed into a tibble.}
-
-\item{horizons_to_show}{A vector of strings indicating the names of the
-\code{horizon} that we want to show on the plot, must be a subset of
-\code{nowcast}, \verb{1 wk}, \verb{2 wks},\verb{3 wks}, \verb{4 wks} and \code{overall}}
 }
 \value{
 A ggplot object containing plots of the distribution of relative