`r params$title`"

if (params$tabs) {
  cat('### Future Catchability {.tabset .tabset-fade .tabset-pills}' )
} else {
  cat('### Future Catchability')
}

dd <- params$Pars$Stock$M_ageArray %>% dim()
nsim <- dd[1]
maxage <- dd[2]

nsamp <- length(params$its)

Sampled Parameters

Histograms of r nsim simulations of inter-annual variability in fishing efficiency (qcv) and average annual change in fishing efficiency (qinc), with vertical colored lines indicating r nsamp randomly drawn values used in the time-series plot:

MSEtool:::plot.Catchability(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=1)

Time-Series

Time-series plot showing r nsamp trends in future fishing efficiency (catchability):

MSEtool:::plot.Catchability(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=2)


Try the MSEtool package in your browser

Any scripts or data that you put into this service are public.

MSEtool documentation built on July 26, 2023, 5:21 p.m.