gear_params | R Documentation |
These functions allow you to get or set the gear parameters stored in
a MizerParams object. These are used by setFishing()
to set up the
selectivity and catchability and thus together with the fishing effort
determine the fishing mortality.
gear_params(params)
gear_params(params) <- value
params |
A MizerParams object |
value |
A data frame with the gear parameters. |
The gear_params
data has one row for each gear-species pair and one
column for each parameter that determines how that gear interacts with that
species. The columns are:
species
The name of the species
gear
The name of the gear
catchability
A number specifying how strongly this gear selects this
species.
sel_func
The name of the function that calculates the selectivity curve.
One column for each selectivity parameter needed by the selectivity functions.
For the details see setFishing()
.
There can optionally also be a column yield_observed
that allows you to
specify for each gear and species the total annual fisheries yield.
The fishing effort, which is also needed to determine the fishing mortality
exerted by a gear is not set via the gear_params
data frame but is set
with initial_effort()
or is specified when calling project()
.
If you change a gear parameter, this will be used to recalculate the
selectivity
and catchability
arrays by calling setFishing()
,
unless you have previously set these by hand.
gear_params<-
automatically sets the row names to contain the species name
and the gear name, separated by a comma and a space. The last example below
illustrates how this facilitates changing an individual gear parameter.
Data frame with gear parameters
validGearParams()
Other functions for setting parameters:
setExtEncounter()
,
setExtMort()
,
setFishing()
,
setInitialValues()
,
setInteraction()
,
setMaxIntakeRate()
,
setMetabolicRate()
,
setParams()
,
setPredKernel()
,
setReproduction()
,
setSearchVolume()
,
species_params()
params <- NS_params
# gears set up in example
gear_params(params)
# setting totally different gears
gear_params(params) <- data.frame(
gear = c("gear1", "gear2", "gear1"),
species = c("Cod", "Cod", "Haddock"),
catchability = c(0.5, 2, 1),
sel_fun = c("sigmoid_weight", "knife_edge", "sigmoid_weight"),
sigmoidal_weight = c(1000, NA, 800),
sigmoidal_sigma = c(100, NA, 100),
knife_edge_size = c(NA, 1000, NA)
)
gear_params(params)
# changing an individual entry
gear_params(params)["Cod, gear1", "catchability"] <- 0.8
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.