R Programming Assignment 1