Update Data_cleaning.R