R Programming : Assignment 2