working corr.R