betas<-function(formula,data,indices){
d<-data[indices,]
fit<-lm(formula,data=d)
return(fit$coef)
}#返回系数向量的自定义函数
results<-boot(data=air,statistic=betas,R=1000,formula=Y~X1+X2+X3+X4+X5+X6)#自助抽样1000次
print(results)
输出结果如图中所示:
我想知道这个自定义函数是否正确?如果正确,求得的回归系数在结果的哪一栏看?


雷达卡



京公网安备 11010802022788号







