Update bu_corr.R