Create cleanData.R