RProgramming_Assignment3