R programming assignment 1