corr.R only read.csv once