#' Equation 6: Allocate breeding males to source habitat (B.mc)
#'
#' I believe this allows males to be holding territories without pairing with a female.
#'
#' TODO(): Check this
#'
#'
#' @param W2 Population vector produced by eq02buildW1Mat()
#' @param K.bc Carrying capacity (K) during breeding season (b) of source (c) habitat
#'
#' @return B.mc Total number of males allocated to source habitat.
#'
#' @references Runge, MC and PP Marra. 2004. Modeling seasonal interactions in the population dynamics of migratory birds. In Greenberg, R and PP Marra, eds. Birds of two worlds. Johns Hopkins University Press, Baltimore.
#'
#' @examples
#' # Standard example
#' ## Set population vector and carrying capacities
#' W2. <- c(10, 10,10, 10)
#' W2. <- setNames(W2., c("mg","fg","mp","fp"))
#' K.bc. <- 10
#' eq06_Bmc(W2 = W2., K.bc = K.bc.)
#'
#' @export
eq06_Bmc <- function(W2,
K.bc){
if( (unlist(W2["mg"])+unlist(W2["mp"])) < K.bc){
B.mc <- (unlist(W2["mg"])+unlist(W2["mp"]))
} else{
B.mc <- K.bc
}
#names(B.mc) <- "B.mc"
return(B.mc)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.