if (params$tabs) { cat('### Selectivity and Retention {.tabset .tabset-fade .tabset-pills}' ) } else { cat('### Selectivity and Retention') } dd <- params$Pars$M_ageArray %>% dim() nsim <- dd[1] maxage <- dd[2] nsamp <- length(params$its)
Histograms of r nsim
simulations of length at 5% selection (L5
), first length at full selection (LFS
), and vulnerability of animals at mean asymptotic length (Vmaxlen
) for the first historical year, the last historical year, and the last projection year, wtih vertical colored lines indicating r nsamp
randomly drawn values used in the other plots:
MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=1)
Histograms of r nsim
simulations of length at 5% retention (LR5
), first length at full retention (LFR
), and retention of animals at mean asymptotic length (Rmaxlen
) for the first historical year, the last historical year, and the last projection year, wtih vertical colored lines indicating r nsamp
randomly drawn values used in the other plots:
MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=2)
MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=3)
MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.