fix for get_Recruits

Author: AdrianHordyk

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

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))
+
+
 }