update corr.R