calc_r2 function

Calculate R-Squared for a Model