matchGrowth() now also rescales the external encounter rate.

Author: gustavdelius

NEWS.md

@@ -1,8 +1,8 @@
 # Development version
 
+- `matchGrowth()` now also rescales the external encounter rate.
 - `setExtEncounter()` no longer resets the external encounter rate to zero when
   called without the `ext_encounter` argument.
-
 - The function `plotBiomassObservedVsModel()` now plots the ratio of modelled
 to observed biomass as default (`ratio = T`), as this is more useful visually to 
 see how far off modelled biomass is from observed biomass.

R/matchGrowth.R

@@ -1,6 +1,7 @@
 #' Adjust model to produce observed growth
 #'
-#' Scales the search volume, the maximum consumption rate and the metabolic rate
+#' Scales the search volume, the maximum consumption rate, the metabolic rate
+#' and the external encounter rate
 #' all by the same factor in order to achieve a growth rate that allows
 #' individuals to reach their maturity size by their maturity age while keeping
 #' the feeding level and the critical feeding level unchanged. Then recalculates
@@ -51,6 +52,7 @@ matchGrowth <- function(params, species = NULL,
     params@search_vol[sel, ] <- params@search_vol[sel, ] * factor
     params@intake_max[sel, ] <- params@intake_max[sel, ] * factor
     params@metab[sel, ] <- params@metab[sel, ] * factor
+    params@ext_encounter[sel] <- params@ext_encounter[sel] * factor
     params@species_params$gamma[sel] <- sp$gamma[sel] * factor
     params@species_params[sel, "h"] <- sp[sel, "h"] * factor
     if ("ks" %in% names(sp)) {