`r params$title`"

In MSEtool: Management Strategy Evaluation Toolkit

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)

Sampled Selectivity Parameters

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)

Sampled Retention Parameters

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) 

Selectivity & Retention at Length

MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=3)

Selectivity & Retention at Age

MSEtool:::plot.Selectivity(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=4)

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