committing R programming assignment