Made cors.R use parallelization better