Update read_data.R