R/MaturityAtAge.R

In DanOvando/DLSA: Library Data Limited Stock Assessment Modules

#' MaturityAtAge
#'
#' @param Length
#' @param Fish
#'
#' @return Vector of percent sexually mature at age
#' @export
MaturityAtAge <- function(Length,Fish)
{


  s50<- Fish$Mat50

  s95<- Fish$Mat95

  mature<- ((1/(1+exp(-log(19)*((Length-s50)/(s95-s50))))))
}