Day2_4: Loading data into R-Exercise