Takes a MizerParams object
params
with arbitrary density dependence and
returns a MizerParams object with Beverton-Holt density-dependence in such a
way that the energy invested into reproduction by the mature individuals
leads to the reproduction rate that is required to maintain the given egg
abundance. Hence if you have tuned your params
object to describe a
particular steady state, then setting the Beverton-Holt density dependence
with this function will leave you with the exact same steady state. By
specifying one of the parameters erepro
, R_max
or reproduction_level
you pick the desired reproduction curve. More details of these parameters are
provided below.
setBevertonHolt(
params,
R_factor = deprecated(),
erepro,
R_max,
reproduction_level
)
A MizerParams object
Reproductive efficiency for each species. See details.
Maximum reproduction rate. See details.
Sets R_max
so that the reproduction rate at
the initial state is R_max * reproduction_level
.
A MizerParams object
With Beverton-Holt density dependence the relation between the energy
invested into reproduction and the number of eggs hatched is determined
by two parameters: the reproductive efficiency erepro
and the maximum
reproduction rate R_max
.
If no maximum is imposed on the reproduction rate
(erepro
divided by the egg size w_min
to convert energy to egg number and
divided by 2 to account for the two sexes.
Imposing a finite maximum reproduction rate
(All quantities in the above equations are species-specific but we dropped the species index for simplicity.)
The following plot illustrates the Beverton-Holt density dependence in the
reproduction rate for two different choices of parameters.
This plot shows that a given energy R_max
and erepro
. R_max
determines the asymptote of
the curve and erepro
its initial slope. A higher R_max
coupled with a
lower erepro
(black curves) can give the same value as a lower R_max
coupled with a higher erepro
(blue curves).
For the given initial state in the MizerParams object params
one can
calculate the energy erepro
or R_max
. Instead of
R_max
you can alternatively specify the reproduction_level
which is the
ratio between the density-dependent reproduction rate
If you do not provide a value for any of the reproduction parameter
arguments, then erepro
will be set to the value it has in the current
species parameter data frame. If you do provide one of the reproduction
parameters, this can be either a vector with one value for each
species, or a named vector where the names determine which species are
affected, or a single unnamed value that is then used for all species. Any
species for which the given value is NA
will remain unaffected.
The values for R_max
must be larger than Inf
. If a smaller value is requested a warning is issued and the
value is increased to the value required for a reproduction level of 0.99.
The values for the reproduction_level
must be positive and
less than 1. The values for erepro
must be large enough to allow the
required reproduction rate. If a smaller value is requested a warning is
issued and the value is increased to the smallest possible value. The values
for erepro
should also be smaller than 1 to be physiologically sensible,
but this is not enforced by the function.
As can be seen in the graph above, choosing a lower value for R_max
or a
higher value for erepro
means that near the steady state the reproduction
will be less sensitive to a change in the energy invested into reproduction
and hence less sensitive to changes in the spawning stock biomass or its
energy income. As a result the species will also be less sensitive to
fishing, leading to a higher F_MSY.
# NOT RUN {
params <- NS_params
species_params(params)$erepro
# Attempting to set the same erepro for all species
params <- setBevertonHolt(params, erepro = 0.1)
t(species_params(params)[, c("erepro", "R_max")])
# Setting erepro for some species
params <- setBevertonHolt(params, erepro = c("Gurnard" = 0.6, "Plaice" = 0.95))
t(species_params(params)[, c("erepro", "R_max")])
# Setting R_max
R_max <- 1e17 * species_params(params)$w_inf^-1
params <- setBevertonHolt(NS_params, R_max = R_max)
t(species_params(params)[, c("erepro", "R_max")])
# Setting reproduction_level
params <- setBevertonHolt(params, reproduction_level = 0.3)
t(species_params(params)[, c("erepro", "R_max")])
# }
Run the code above in your browser using DataLab