powered by
randwhiten(A, k, seed = NA)
A <- matrix(rnorm(3000), ncol=50 ) k=10 Aw=randwhiten(A,k) # (Aw) %*% t(Aw)
Run the code above in your browser using DataLab