signal.to.noise.R2 function

Signal to noise using squared multiple correlation coefficient