fix for get_Recruits

Blue-Matter · Feb 7, 2024 · 7fd20b6 · 7fd20b6
1 parent e8de79e
commit 7fd20b6
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/DEVELOPMENT.R b/DEVELOPMENT.R
@@ -205,6 +205,12 @@ get_LifeHistory(multiHist) %>% head()
 get_LifeHistory(MMSE) %>% head()
 
 
+
+get_SB_SBMSY(MSE)
+
+x <- get_ts(multiHist, variable = "F_FMSY")
+
+
 # Plots ------
 
 # Note: August 2023 - currently plotting functions don't work for MMSE and multiHist objects

diff --git a/R/get_data_frames.R b/R/get_data_frames.R
@@ -854,7 +854,10 @@ mse.recruits <- function(x) {
     if (length(x@Misc$extended)<1)
       stop('Need to use `extended=TRUE` argument for `runMSE`, or update to a more recent version of `MSEtool` and run `runMSE` again')
   }
-  as.vector(apply(x@N[,1,,,], c(1,2,3), sum))
+  recs <- x@N[,1,,,]
+  as.vector(apply(recs, 1:2, sum))
+
+
 }