# \donttest{
params <- NS_params
given_species_params(params)["Cod", "w_mat"] <- 1200
plotRelative(getEGrowth(NS_params), getEGrowth(params),
wlim = c(500, 2000), log_x = FALSE, species = "Cod")
# The same works for the resource
params2 <- setResource(NS_params,
resource_capacity = 2 * resource_capacity(NS_params))
plotRelative(resource_capacity(NS_params), resource_capacity(params2))
# }
Run the code above in your browser using DataLab