surr_rsq function

A function to calculate the surrogate R-squared measure.