R2 function

Pseudo R-squared