R Programming Programming Assignment 1