R Function For Correlation Matrix