Commit 0a988bc3 authored by Poulet Camille's avatar Poulet Camille
Browse files

Modification offline parameters

Showing with 9 additions and 8 deletions
+9 -8
......@@ -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)
......
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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment