Committing R programming assignment 1