For逻辑后退循环

Question

有人可以帮助我处理我的代码吗？

我只想在100个不同的训练和测试集上获得此代码的结果。

library(ISLR)
library(caTools)
result=c()
for (i in 1:100){
train = sample.split(Baseballcorinf$pos, SplitRatio = 0.7)
test=Baseballcorinf[,2:10][!train,]
pos.test=Baseballcorinf$pos[!train]
glm.fit=glm(pos~year+games+at.bats+doubles+hr+hits+rbi+avg+obp,
            data=Baseballcorinf,family=binomial, subset=train)
glm.probs=predict(glm.fit,test, type="response")
glm.pred=rep("cor",length(pos.test))
glm.pred[glm.probs>.5]="inf"
tab=table(glm.pred,pos.test)
z=(tab[1,1]+tab[2,2])/90
result[i]=z}

z是一个数字，我想将其存储在向量中。

非常感谢您。