In poissonconsulting/ypr: Yield Per Recruit

knitr::opts_chunk$set(
  echo = FALSE,
  fig.width = 4,
  fig.height = 4
)

{{{ description }}}

library(ypr)
population <- {{{ population }}}

knitr::kable(ypr_tabulate_parameters(population))

ypr_plot_schedule(population)
ypr_plot_schedule(population, "Length", "Weight")
ypr_plot_schedule(population, "Weight", "Fecundity")
ypr_plot_schedule(population, "Length", "Spawning")

ypr_plot_schedule(population, "Length", "Vulnerability")
ypr_plot_schedule(population, "Length", "Retention")
ypr_plot_schedule(population, "Length", "FishingMortality")
ypr_plot_schedule(population, "Length", "NaturalMortality")

ypr_plot_fish(population, color = "white")
ypr_plot_fish(population, "Length", "Caught")
ypr_plot_fish(population, "Age", "Spawners", color = "white")
ypr_plot_fish(population, "Length", "Spawners")
ypr_plot_biomass(population, color = "white")
ypr_plot_biomass(population, y = "Eggs", color = "white")

ypr_plot_sr(population)
knitr::kable(ypr_sr(population))
knitr::kable(ypr_tabulate_sr(population))

ypr_plot_yield(population, Ly = {{{ Ly }}}, harvest = {{{ harvest }}}, biomass = {{{ biomass }}})
knitr::kable(ypr_tabulate_yield(population, Ly = {{{ Ly }}}, harvest = {{{ harvest }}}, biomass = {{{ biomass }}}))