Added corr.R for part3 of assignment1