Correct ssbInd

flr · Mar 7, 2023 · 22bcc8c · 22bcc8c
1 parent fad54e0
commit 22bcc8c
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: FLBEIA
 Title: Bio-Economic Impact Assessment of Management Strategies using FLR
-Version: 1.16.1.10
-Date: 2023-02-15
+Version: 1.16.1.11
+Date: 2023-03-07
 Authors@R: c(person("FLBEIA", "Team", email = "[email protected]", role = c("aut","cre")))
 Description: A simulation toolbox that describes a fishery system under
   a Management Strategy Estrategy approach. The objective of the model is

diff --git a/R/MP_1a_Observation_Model.R b/R/MP_1a_Observation_Model.R
@@ -805,7 +805,7 @@ ssbInd <- function(biol, fleets, index, obs.ctrl, year, season,...){
   n.s2 <- biol@n[,yrnm.1,,sInd,]*exp(-biol@m[,yrnm.1,,sInd,])-catchStock(fleets,name(biol))[,yrnm.1,,sInd,]*exp(-biol@m[,yrnm.1,,sInd,]/2)
   fval <- log(biol@n[,yrnm.1,,sInd,]/n.s2) - biol@m[,yrnm.1,,sInd,]
   ssb.stk <- quantSums( biol@n[,yrnm.1,,sInd,]*exp(-(biol@m[,yrnm.1,,sInd,]+fval)*biol@spwn[,yrnm.1,,sInd,])*
-                          biol@wt[,yrnm.1,,sInd,]*fec(biol)[,yrnm.1,,sInd,])
+                          biol@wt[,yrnm.1,,sInd,]*mat(biol)[,yrnm.1,,sInd,])
 
   index@index[,yrnm.1] <- ssb.stk*index@index.q[,yrnm.1]#*[email protected][,yrnm.1]
 

diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
 # FLBEIA
-- Version: 1.16.1.10
-- Date: 2023-02-15
+- Version: 1.16.1.11
+- Date: 2023-03-07
 - Author: Dorleta GARCIA <[email protected]>; FLBEIA Team <[email protected]>
 - Maintainer: Dorleta GARCIA, AZTI & FLBEIA Team
 - Repository: <https://github.com/flr/FLBEIA/>