Update cleanData.R