[统计软件] 用R如何同时做多组一元线性回归 [推广有奖]

麻烦各位大神解答：我现在有全国个省市的数据，都要分别做相同的线性回归（自变量相同），请问我应该做怎样的循环语句呢？前一段的语句如下：
all=read.table("clipboard") %数据导入
year=all[,1]%定义"年"作为自变量
water=all[,-1]定义“32个省市的数据”作为因变量
下面是我自己写的：
for(i in 1:32)
for(j in 1:32)
cat("lm",j)=lm(formula=year~water[,i]
我希望是写出lm1 就能输出第一组的回归；
麻烦各位大神指条明路~