powered by
randsvd(A, k, seed = NA)
A <- matrix(rnorm(3000), ncol=50 ) k=10 dr=randsvd(A,k)$d[1:k] dt=svd(A)$d[1:k] cor(dr,dt)
Run the code above in your browser using DataLab