R programming Assignment 1