R Programming, Programming Assignment 2