Update rsquare.R