Part 3

Corr.R function is created