An implementation of the Baranov catch equations allowing for fishery retenetion and discarding practices.

baranov(fy, naa, waa, mort, selex, ret = NA, dmr = NA)

Arguments

fy

an instantenous fishing mortality rate to apply to the population

naa

numbers-at-age in the population

waa

weight-at-age vector

mort

instanteous natural mortality (M) -at-age vector

selex

selectivity-at-age vector

ret

retention-at-age vector (optional)

dmr

instanteous discard mortality rate -at-age vector (optional)

Value

the amount of catch resulting from fishing the population at `fy`

Examples

if (FALSE) {
naa <- c(100, 50, 25, 10)
waa <- c(1, 2, 3, 4)
mort <- c(0.2, 0.2, 0.2, 0.2)
selex <- c(0.0, 0.5, 1.0, 1.0)

# catch should be 14.35
catch <- baranov(0.1, naa, waa, mort, selex)
}