R programming Assignment2