Create Corr.R

Week2, part3