Nothing
if (params$tabs) { cat('### Recruitment Parameters {.tabset .tabset-fade .tabset-pills}' ) } else { cat('### Recruitment Parameters') } dd <- params$Pars$Stock$M_ageArray %>% dim() nsim <- dd[1] maxage <- dd[2] nsamp <- length(params$its) if (Pars$Stock$SRrel[1] == 1) SR <- "Beverton-Holt" if (Pars$Stock$SRrel[1] == 2) SR <- "Ricker"
Histograms of r nsim
simulations of steepness (h
), recruitment process error (Perr
) and auto-correlation (AC
) for the r SR
stock-recruitment relationship, with vertical colored lines indicating r nsamp
randomly drawn values used in other plots:
MSEtool:::plot.Recruitment(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=1)
Time-series plot showing r nsamp
samples of recruitment deviations for historical and projection years:
MSEtool:::plot.Recruitment(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.