Completed R Programming assignment 2