Added option to plot removals rather than yield

flr · Dec 6, 2024 · ed8d4f7 · ed8d4f7
1 parent b6e6b60
commit ed8d4f7
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: FLBRP
 Title: Reference Points for Fisheries Management
-Version: 2.5.9.9050
+Version: 2.5.9.9051
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl", role = "cre"),
   person("Laurence T.", "Kell", email = "laurie@seaplusplus.co.uk", role = "aut"),

diff --git a/R/plots.R b/R/plots.R
@@ -25,6 +25,7 @@
 #' @examples
 #' data(ple4brp)
 #' plot(ple4brp)
+#' plot(ple4brp, catch=TRUE)
 #' # ADD observations
 #' plot(ple4brp, obs=TRUE)
 #' # SELECT which refpts to plot
@@ -42,11 +43,18 @@
 
 setMethod("plot", signature("FLBRP", "missing"),
   function(x, refpts=dimnames(x@refpts)$refpt, obs=FALSE, labels=TRUE,
-    shapes="missing", colours="missing", panels=NULL, ncol=2, ...) {
+    shapes="missing", colours="missing", panels=NULL, ncol=2,
+    removals=FALSE, ...) {
+
+    # SELECT yield
+    if(removals)
+      yield <- 'catch'
+    else
+      yield <- 'landings'
 
     # EXTRACT metrics
     df <- model.frame(metrics(x,
-      list(ssb=ssb, harvest=fbar, rec=rec, yield=landings, profit=profit)),
+      list(ssb=ssb, harvest=fbar, rec=rec, yield=yield, profit=profit)),
       drop=FALSE)
 
     # refpts