我有一组数据data

<br />
##表头<br />
##  [1] "X"                              "M"<br />
##  [3] "A"                             "C"<br />
##  [5] "l"                             "F"<br />
##  [7] "d"                             "H"<br />
##  [9] "K"                              "i"<br />
## [11] "S"                              "T"<br />
## [13] "G"                              "PE"<br />
## [15] "RH"                             "SI"<br />
## [17] "TN"                             "UE"<br />
## [19] "Ga"                             "Ni"<br />
## [21] "FeS"                            "Gu"<br />

我想用data[3:12]作为自变量，逐个去拟合data[13:22]

用下面的方法当然没有问题

lm(G~A+C+l+F+d+K+i+S+T,data)<br />
lm(PE~A+C+l+F+d+K+i+S+T,data)</p>
<p>#。。。。

但是要一个一个去写公式，太麻烦了，万能的R应该会有让我可以偷懒的循环或者向量处理方式吧？可以一次性处理完。尝试了一下,如果写成这样：

for (i in 13：22）{<br />
lm(data[i]~data[3:12]<br />
}

会提示报错</p>

求助大侠指导怎么去写这个循环，或者向量运行方式。