R programming Assignment