R Programming Programming Assignment 2