Completed R Programming Assignment 2