Update CorrelationPlotMatrix.R

Rewritten as a function definition