corr function working