Create data_cleaning.R