Create corr.R

part 3 for course submission