Assignment 2 R_programming