#random set of covariance matrices
cov.matrices = aperm(aaply(1:15, 1, function(x)
laply(RandomMatrix(10, 100,
variance = runif(10, 1, 10)),
identity)),
c(3, 4, 1, 2))
#rs_proj = evolqg:::RSProjection(cov.matrices, p = 0.8)
#plot(rs.proj, cov.matrices)Run the code above in your browser using DataLab