suppressMessages(library(dplyr)) if (params$tabs) { cat('### Natural Mortality Parameters {.tabset .tabset-fade .tabset-pills}' ) } else { cat('### Natural Mortality Parameters') } dd <- params$Pars$M_ageArray %>% dim() nsim <- dd[1] maxage <- dd[2] nsamp <- length(params$its) nyears <- params$nyears proyears <- params$proyears
Histograms of r nsim
simulations of M
, and Msd
parameters, with vertical colored lines indicating r nsamp
randomly drawn values used in other plots:
MSEtool:::plot.NaturalMortality(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=1)
The average natural mortality rate by year for adult fish for r nsamp
simulations. The vertical dashed line indicates the end of the historical period:
MSEtool:::plot.NaturalMortality(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=2)
Natural mortality-at-age for r nsamp
simulations in the first historical year, the last historical year (i.e., current year),
and the last projected year:
MSEtool:::plot.NaturalMortality(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=3)
Natural mortality-at-length for r nsamp
simulations in the first historical year, the last historical year (i.e., current year),
and the last projected year:
MSEtool:::plot.NaturalMortality(params$Pars, nsamp=nsamp, plotPars=params$plotPars, plot.num=4)
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.