Create corr.R

Version 1