getReproductionLevel(NS_params)
# The reproduction level can be changed without changing the steady state:
params <- setBevertonHolt(NS_params, reproduction_level = 0.9)
getReproductionLevel(params)
# The result is the ratio of RDD and R_max
identical(getRDD(params) / species_params(params)$R_max,
getReproductionLevel(params))
Run the code above in your browser using DataLab