R programming assignment 2, first commit