rand_cor_mat function

Simulate a random correlation matrix