Update read_data.R

Final version of the Coursework