Finished corr.R