Added corr.R for Assignment 1 Part 3