powered by
randcca(x, y, k, seed)
set.seed(13) x <- matrix(rnorm(3000), nrow=50 ) y <- x %*% matrix( rnorm( 60*100 ), nrow=60) k=10 dr=randcca(x,y,k,1)
Run the code above in your browser using DataLab