Target in IcesMSY HCR changed

flr · Jan 29, 2024 · f93123c · f93123c
1 parent a1b1204
commit f93123c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MP_3c_HCR_ICES_MSY.R b/R/MP_3c_HCR_ICES_MSY.R
@@ -160,7 +160,7 @@ IcesHCR <- function(stocks, advice, advice.ctrl, year, stknm,...){
 
             # Find where the SSB (Age structured) OR Biomass (Aggregated) in relation to reference points.
             b.pos <- findInterval(b.datyr, ref.pts[c('Blim', 'Btrigger'),i])  # [1]
-            Ftg <- ifelse(b.pos == 0, 0, ifelse(b.pos == 1, ref.pts['Fmsy',i]*b.datyr/ref.pts[ 'Btrigger',i], ref.pts['Fmsy',i]))
+            Ftg <- ifelse(b.pos == 0, 0, ifelse(b.pos == 1, ref.pts['Fmsy',i]*b.datyr/ref.pts[ 'Btrigger',i], ref.pts[target,i]))
 
             print(Ftg)