r - 複数の LHS による線形モデルのあてはめ

Question

私は R が初めてで、*apply関数を使用して次のスクリプトを改善したいと考えています (私は について読んだことがありますがapply、それを使用することができませんでした)。lm複数の独立変数 (データ フレーム内の列) で関数を使用したい。使った

for (i in (1:3) {
  assign(paste0('lm.',names(data[i])), lm(formula=formula(i),data=data))
  } 

Formula(i)と定義されている

formula=function(x)
{
  as.formula ( paste(names(data[x]),'~', paste0(names(data[-1:-3]), collapse = '+')), env=parent.frame() )
}

ありがとうございました。