R-Programming Week 3 Assignment 2 answers