Adding R programming assignment 1