Create getAndCleanData.R