Для цикла для логистической регрессии

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 - это одно число, и я хочу сохранить его в векторе.

Большое спасибо.