Update ca_corr.R