inst/allPoolCov.R

allPoolCov <- function(weightMat, listOfMatrices) {
  list <- lapply(1:nrow(weightMat), function(i) {
    poolCov(weightMat, listOfMatrices, row = i)
  })
  names(list) <- names(listOfMatrices)
  list
}
BenBarnard/covEstR documentation built on May 7, 2019, 7:58 a.m.