x=c(1:10)
y=c(101:110)
x1=sample(x,10)##抽样
y1=sample(y,10)##抽样
fit1=lm(y1~x1)##建立OLS
#读取列名称
coef1<-coef(summary(fit1))
write.csv(coef1,"coef1.csv")
coef1<-read.csv("coef1.csv",header=T)
#修改以示区别
names<-names(coef1)
names(coef1)<-c("Variable",paste(names[2:5],"1",sep=""))

x2=sample(x,10)##抽样
y2=sample(y,10)##抽样
fit2=lm(y1~x1)#建立OLS
##读取列名称
coef2<-coef(summary(fit2))
write.csv(coef2,"coef2.csv")
coef2<-read.csv("coef2.csv",header=T)
#修改以示区别
names<-names(coef2)
names(coef2)<-c("Variable",paste(names[2:5],"2",sep=""))

#合并两个估计参数表
coef<-merge(coef1,coef2,by="Variable")
#对估计参数取均值
coef<-within(coef,
             {Estimate_Mean<-(Estimate1+Estimate2)/2
             })
write.csv(coef,"coef.csv")

楼主：看看我的程序以及数据包。

谢谢楼主。不过预测是预测值，不是参数。

哈哈哈哈。具体一点，你需要把结果中的什么求均值

每一个OLS模型都对y有预测值，现在对两个y预测值求均值。