Completed R Programming assignment #2