Modification offline parameters

exploration/NEA_calibration_offline/6-Growth_Calibration.Rmd

@@ -26,6 +26,7 @@ library(officedown)
 library(flextable)
 library(stringr)
 library(tictoc)
+library(tibble)
 
 ```
 
@@ -344,9 +345,8 @@ write_csv(growParOptim, "growParOptim.csv")
 
 load("growth_optimal.RData")
 
-
 growthCurves = computeGrowOpt(growth_optimal$par, growthInOffshore)
-
+save(growthCurves, file = "growthCurves.RData")
 
 #growth curve according to metapopulations 
 growthCurves %>% 
@@ -357,7 +357,8 @@ growthCurves %>%
   #scale_x_continuous(limits = c(0, 10)) +
   geom_hline(yintercept = 45, color = "pink", linetype =1)+ #female
   geom_hline(yintercept = 40, color = "lightblue", linetype = 1)+
-  facet_wrap(.~ metapop, ncol =3)
+  geom_vline(aes(age), xintercept = 8, linetype = 1)+
+  facet_wrap(.~ metapop, ncol =1)
 
 #temperature effect 
 temp <- seq(0,45,0.1)

exploration/NEA_calibration_offline/growParOptim.csv

 parameter,value
 Tmin,0
-Topt,4.4903872865652845
-Tmax,51.96494839598789
-L0,5.778843636796766
-Linf,47.707177806062305
-K,0.5061897626434646
+Topt,4.5125688473103995
+Tmax,76.23141515590089
+L0,6.5184840221819975
+Linf,47.53851690994118
+K,0.4964834345987972