R programming assignment 2 - done