Update cholcorr.R