Assignment2 R Programming