powered by
regmax(x) regmin(x)
x <- replicate(20,rnorm(20)) cx <- abs(cor(x)) regmax(x) regmin(x) diag(cx) = runif(20) regmax(x) regmin(x)
Run the code above in your browser using DataLab