programming assignment 2 for R programming