Nothing
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)
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 plot showing r nsamp
trends in future fishing efficiency (catchability):
MSEtool:::plot.Catchability(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.