Create corr.R

Commented and test function added.  Formatting to expected results difficult.