R Programming Assignment #3