* Add the function corr.R (working)