R Programming: Programming Assignment 2