Finished Assignment 2 R Programming