Create readData.R