cov.matrix <- cov(iris[,1:4])
MeanMatrixStatistics(cov.matrix)
if (FALSE) {
#Multiple threads can be used with some foreach backend library, like doMC or doParallel
library(doMC)
registerDoMC(cores = 2)
MeanMatrixStatistics(cov.matrix, parallel = TRUE)
}
Run the code above in your browser using DataLab