Revised corr.R to remove rounding in result.