modified corr.r