R/pope_abundance.R

In polehalieutique/demerstem: This package aims to falicitate Fish stock assessement for west african partners involved in the EU DEMERSTEM project

#'  pope_abundance
#'
#' \code{pope_abundance} estimates N at age
#'
#' @param   age    from VPA_pope
#'
#'
#' @examples
#'
#'
#' @export

pope_abundance <- function(age)
{
  res <- Mat_Cage[age]*(Mat_M[age]+Mat_F[age])/(Mat_F[age]*(1-exp(-Mat_M[age]-Mat_F[age])))
  res
}