14/01/12 19:39:44.30 .net
ans<-lm(ch1~.,data)
ans2<-stepAIC(ans)
(略)
Step: AIC=6680.92
ans3<-lm(ch2~.,data)
ans4<-stepAIC(ans3)
（略）
Step: AIC=6260.8
：
（略）
：
ans47<-lm(ch24~.,data)
ans48<-stepAIC(47)
（略）
Step: AIC=8953.5
この出力されたAICの値（計24個）の値を比較して一番値が低いAICを表示したいです。
できる人いましたらやり方教えて下さい。