R/keyfitz.R

In milokmilo/Stranded: Calculate Biological Parameters from Stranded Cetaceans

#' keyfitz
#'
#' Gives a particular aggregation for life.table(). Original function in demoR_0.4.2  
#' @param b0
#' @param nMx
#' @keywords keyfitz life table
#' @export
#' @examples
#' keyfitz()

keyfitz <- function(b0,nMx){
  nax12 <- c(0,0)
  nax12[1] <- b0[1] + b0[2] *nMx[1]
  nax12[2] <- 1.5
  return(nax12)
}