Create cleaningData.R