Upload data file and code R using for assignment1