Create readingData.R