rsq function

R squared and pseudo R squared