# 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