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