R programming Assignment 2