R programming - Week3 - Program Assignment2