started working on corr.R just a couple lines
done