|
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")
|