From acbdbf363a4c5c707b7698faac48b590b0cbb911 Mon Sep 17 00:00:00 2001
From: MOshima-PIFSC <megumi.oshima@noaa.gov>
Date: Fri, 22 Mar 2024 15:35:00 -1000
Subject: [PATCH] spell out reference and adjust rectangle colors for runstest

---
 R/SSplotRetro.R    | 4 ++--
 R/SSplotRunstest.R | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/SSplotRetro.R b/R/SSplotRetro.R
index a53ef91..8078a62 100644
--- a/R/SSplotRetro.R
+++ b/R/SSplotRetro.R
@@ -83,7 +83,7 @@ SSplotRetro <- function(summaryoutput,
                         pheight = 5.0,
                         punits = "in",
                         res = 300,
-                        ptsize = 10,
+                        ptsize = 12,
                         cex.main = 1,
                         plotdir = NULL,
                         filenameprefix = "",
@@ -296,7 +296,7 @@ SSplotRetro <- function(summaryoutput,
 
     if (!is.expression(legendlabels[1]) &&
       legendlabels[1] == "default") {
-      legendlabels <- c("Ref", paste(endyrvec[-1]))
+      legendlabels <- c("Reference", paste(endyrvec[-1]))
     }
     if (legendorder[1] == "default") legendorder <- 1:(nlines)
 
diff --git a/R/SSplotRunstest.R b/R/SSplotRunstest.R
index 3af4c1e..ab12ac7 100644
--- a/R/SSplotRunstest.R
+++ b/R/SSplotRunstest.R
@@ -311,7 +311,7 @@ SSplotRunstest <- function(ss3rep,
 
 
     lims <- runstest[["sig3lim"]]
-    cols <- c(rgb(1, 0, 0, 0.5), rgb(0, 1, 0, 0.5))[ifelse(runstest[["p.runs"]] < 0.05, 1, 2)]
+    cols <- c("#d95f02D9", "#1b9e77")[ifelse(runstest[["p.runs"]] < 0.05, 1, 2)]
     rect(min(resid[["Yr"]] - 1), lims[1], max(resid[["Yr"]] + 1), lims[2], col = cols, border = cols) # only show runs if RMSE >= 0.1
 
     abline(h = 0, lty = 2)