fix reported SB_SBMSY for MMSE objects

Blue-Matter · Jul 10, 2024 · 7693545 · 7693545
1 parent 6a5b02f
commit 7693545
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -19,7 +19,7 @@ The current version of the `MSEtool` package is available for download from [CRA
 - projections use `dynGet` then `get` to find the MPs in the R session (see function `getMP`). `dynGet` finds functions that are defined inside the function call stack but not available in the global environment.
 
 ## Fixes
-
+- fix to reported `MMSE@SB_SBMSY` for `MMSE` objects
 - fix to `OMdoc`
 - fixes to simulation of length comp
 - add `cpars$qs` to `OM` produce by `SS2OM`

diff --git a/R/multiMSE.R b/R/multiMSE.R
@@ -2929,7 +2929,7 @@ ProjectMOM <- function (multiHist=NULL, MPs=NA, parallel=FALSE, silent=FALSE,
     }
 
     # SSB relative to SSBMSY
-    SB_SBMSYa[, ,mm, ] <- apply(SSB_P, c(1,2, 4), sum, na.rm=TRUE)/array(SSBMSY_y[,,mm,],
+    SB_SBMSYa[, ,mm, ] <- apply(SSB_P, c(1,2, 4), sum, na.rm=TRUE)/array(SSBMSY_y[,,mm,(nyears+1):(nyears+proyears)],
                                                                        c(nsim,np,proyears))
 
     # for(p in 1:np) for(f in 1:nf)