# NOT RUN {
mat<-replicate(400, rnorm(600)) 
print(mean(abs(cor(mat))))
wmat<-fastwhiten( scale( mat ) ) 
print(mean(abs(cor(wmat))))
wmat<-fastwhiten( scale( mat ), 20 ) 
print(mean(abs(cor(wmat))))
# }
Run the code above in your browser using DataLab