R Assignment 2

Final update