R-Programming Assignment Week 3