R/eq19AbuildFmat.R

In brouwern/FACavian: An R implementation and extension of full-annual cycle (FAC) model of Runge & Marra *2005)

#' Equation 19: Matrix of sex ratios at birth (f.mat)
#'
#'
#' @param f Proportion of females
#'
#' @return f.mat matrix of sex ratios at bird
#'
#' @export
#'
#' @examples
#' # Sex ratio matrix
#' eq19AbuildFmat()


eq19AbuildFmat <- function(f = 0.5){
  f.mat <- c(1-f, 0,
             0,   1-f,
             f,   0,
             0,   f)

  f.mat <- matrix(f.mat, ncol = 2, byrow=T)

  return(f.mat)
}