powered by
corw(mat, weights)
mat <- matrix( rnorm(100), nrow=10 ) wcmat<-corw( mat , weights = abs( nrorm( nrow(mat) ) ) )
Run the code above in your browser using DataLab