R programming Assignment 1 complete