cor function working. need to filter out data less than threshold