spell out reference and adjust rectangle colors for runstest

PIFSCstockassessments · Mar 23, 2024 · acbdbf3 · acbdbf3
1 parent 98ea41e
commit acbdbf3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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)