Update Corr.R

It works to a point, but the output is wrong. Have to read up on the cor function