Update Data_merge.R