Commit 30f3ba4a authored by Poulet Camille's avatar Poulet Camille
Browse files

Add one more fonction to compute survival after spawning

parent a2fd77d0
......@@ -172,8 +172,17 @@ stockRecruitementRelationship <- function(Triver,Tmin, Topt, Tmax, survivalStock
# ----------------------------------------------
# Spawner survival after reproduction
#----------------------------------------------
#Logit with temperature effect
spawnerSurvivalPostReproduction <- function(Triver,Tref, coeffa, coeffb){
#Logit with temperature effect depending on a Triver
spawnerSurvivalPostReproductionTempRiver <- function(Triver, coeffa, coeffb){
spRiverPostSpawn = (coeffb/ (1 + exp(coeffa*(Triver))))
return(spRiverPostSpawn)
}
#Logit with temperature effect depending on the difference between the river temperature and Tref
spawnerSurvivalPostReproductionTempRef <- function(Triver,Tref, coeffa, coeffb){
spRiverPostSpawn = (coeffb/ (1 + exp(coeffa*(Triver-Tref))))
......
Markdown is supported
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