rsquaredAICstep.R