Added proportionsv at age in @catch.n top FLIndexBiomass returned by …

…survey()
flr · Jan 20, 2025 · 9cfe884 · 9cfe884
1 parent d538e02
commit 9cfe884
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: FLCore
 Title: Core Package of FLR, Fisheries Modelling in R
-Version: 2.6.20.9321
+Version: 2.6.20.9322
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl",
     role = "cre", comment=c(c(ORCID = "0000-0002-3252-0591"))),

diff --git a/R/oem.R b/R/oem.R
@@ -51,6 +51,8 @@ setMethod("survey",   signature(object="FLStock", index="FLIndex"),
 #' ple4.biom <- as(ple4.index, "FLIndexBiomass")
 #' survey(ple4, ple4.biom)
 
+# TODO: ADD catch.n
+
 setMethod("survey", signature(object="FLStock", index="FLIndexBiomass"),
   function(object, index, sel=sel.pattern(index),
     ages=ac(seq(range(index, c('min')), range(index, c('max')))),
@@ -69,6 +71,9 @@ setMethod("survey", signature(object="FLStock", index="FLIndexBiomass"),
     # COMPUTE index
     abnd <- index(object, sel=sel, ages=ages, timing=timing)
 
+    # ADD propatage
+    catch.n(index) <- abnd
+
     # APPLY Q on biomass
     index(index) <- c(index.q * unitSums(quantSums(abnd *
       catch.wt[ages, dimnames(index)$year])) ^ stability)