Update ca_cols_corr.R