R programming Assignment 2 complete