First iteration of data_cleaning.R