Finished R Programming Assignment2