# Inspect the current maximum intake rate
intake_max(NS_params)["Cod", 1:5]
# Increase intake rate for Cod by 50%
im <- intake_max(NS_params)
im["Cod", ] <- im["Cod", ] * 1.5
params <- setMaxIntakeRate(NS_params, intake_max = im)
intake_max(params)["Cod", 1:5]
Run the code above in your browser using DataLab