changed covariance to search for highest R values