Update Corr.R

I need to calculate corr for each file separately