R/eq27_post_comp_pooling.R

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

#' Equation 27:
#'
#'
#' @param A.i.G xxx
#' @param A.i.P xxx
#'
#' @return W.list xxx
#'
#' @export

eq27_post_comp_pooling <- function(A.i.G, A.i.P){

  ### Male
  W.mg <- sum(A.i.G[c("mc","mk","md","y.mc","y.mk")])
  W.mp <- sum(A.i.P[c("mc","mk","md","y.mc","y.mk")])

  ### Female
  W.fg <- sum(A.i.G[c("fc","fk",     "y.fc","y.fk")])
  W.fp <- sum(A.i.P[c("fc","fk",     "y.fc","y.fk")])

  W.list <- list(W.mg= W.mg, W.mp = W.mp,
                 W.fg = W.fg,W.fp = W.fp)

  return(W.list)
}