Assign updated Herm to MOM@SexPars for SimulateMOM

Blue-Matter · Dec 19, 2024 · 2c2d017 · 2c2d017
1 parent 0a78a9a
commit 2c2d017
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: MSEtool
 Title: Management Strategy Evaluation Toolkit
-Version: 3.7.4
+Version: 3.7.9999
 Authors@R: c(
   person("Adrian", "Hordyk", email = "adrian@bluematterscience.com", role = c("aut", "cre")),
   person("Quang", "Huynh", email = "quang@bluematterscience.com", role = "aut"), 

diff --git a/R/multiMSE.R b/R/multiMSE.R
@@ -172,7 +172,7 @@ SimulateMOM <- function(MOM=MSEtool::Albacore_TwoFleet, parallel=TRUE, silent=FA
   # from females to males
   if (length(SexPars)) {
     if (length(SexPars$Herm)) {
-      SexPars$Herm <- checkHerm(SexPars$Herm, maxage, nsim, nyears, proyears)
+      MOM@SexPars$Herm <- SexPars$Herm <- checkHerm(SexPars$Herm, maxage, nsim, nyears, proyears)
     }
     if (is.null(SexPars$share_par) || SexPars$share_par == TRUE) {
       sexmatches <- sapply(1:nrow(SexPars$SSBfrom), function(x) paste(SexPars$SSBfrom[x, ], collapse = "_"))