R_Assignment2