R programming class Assignment 2