price at metier level working now

flr · May 30, 2024 · 1cdf19a · 1cdf19a
1 parent ced4378
commit 1cdf19a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/OM_2c_Price_Dynamics.R b/R/OM_2c_Price_Dynamics.R
@@ -59,7 +59,7 @@ elasticPrice <- function(fleets, covars, fleets.ctrl, stnm, flnm, mtnm, year = 1
     # When La = 0 -> Pa = Inf -> set Pa = NA
     Pa <- ifelse( Pa==Inf, NA, Pa)
 
-    fms@price[,yr,i,ss] <- Pa
+    fms@price[,yr,,ss] <- Pa
 
 
     fleets[[flnm]]@metiers[[mtnm]]@catches[[stnm]] <- fms