RProgramming_Assignment2