R/eq26_alloc_winter_P.R

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

#' Equation 26: Allocate birds to poor winter habitat (A.i.P)
#'
#' @param A.i.0 xxx
#' @param A.i.G xxx
#'
#' @return A.i.P xxx
#'
#' @export



eq26_alloc_winter_P <- function(A.i.0,
                                A.i.G){
  #        initial - number settled in good habitat
  A.i.P <- A.i.0   -  A.i.G
  return(A.i.P)
}