library(magrittr)
ling_imm <- g3_stock('ling_imm', seq(20, 156, 4)) %>% g3s_age(3, 10)
# Natural mortality for immature ling
naturalmortality_action <- g3a_naturalmortality(ling_imm)
# NB: M is used in both g3a_naturalmortality and g3a_renewal_initabund, to
# customise, you need to make sure the definitions are in sync, for example:
M <- g3_parameterized('M', by_stock = TRUE, by_age = FALSE)
actions <- list(
g3a_naturalmortality(ling_imm,
g3a_naturalmortality_exp(M)),
g3a_initialconditions_normalparam(ling_imm,
factor_f = g3a_renewal_initabund(M = M)),
NULL)
Run the code above in your browser using DataLab