R Programming Assignment #1