Programming R Squared