This is for RProgramming Assignment 2