R programimg Assignment 2