Done with R Assignment 2