allPoolCov <- function(weightMat, listOfMatrices) {
list <- lapply(1:nrow(weightMat), function(i) {
poolCov(weightMat, listOfMatrices, row = i)
})
names(list) <- names(listOfMatrices)
list
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.