Finally finished corr.R