added correlation and R