fixed error in partial correlation function: function needs sqrt(R2) as input, not R2