r - R コード: lapply リストの組み込み関数を変更する

Question

回帰モデルのリストがありますが、フォワード法で段階的に実行したいと思います。この関数をlapplyで修正しようとしましたが、うまくいきません..

私はデータを持っています

test<-data.frame(X1=rnorm(50,mean=50,sd=10),
             X2=rnorm(50,mean=5,sd=1.5),
             X3=rnorm(50,mean=200,sd=25))
test$X1[10]<-5
test$X2[10]<-5
test$X3[10]<-530

回帰モデルを実行します

varlist <- names(test)

models <- lapply(varlist, function(x) {
lm(substitute(i~., list(i = as.name(x))), data = data 
})

そして、段階的に実行します..

lapply(models, function(x){step(x,direction="forward")})

ただし、段階的な方法の変更には影響しません-前方..ラップリーで組み込み関数を変更するにはどうすればよいですか?

よろしくお願いします。