minor modification and play

correct corr(r)
play with with data