R-Programming_Assignment2