added corr.R

PA 1 / part 3