Create readdata.R