#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.