R-Programming Assigmnet 2