我想做的是用一个循环体遍历所有的2变量模型，并计算CV值。用一个list vector（logi）储存glm得出的模型，再将logi[[i]]作为参数传递到cv.glm中，但是这样操作会报错。
下面是我的代码
library(boot)
des=read.table('XXXXX')
k=1
logi=vector('list',15)
cv=rep(0,15)
cost <- function(r, pi = 0) mean(abs(r-pi) > 0.5)
for(i in 5:9){
  for(j in (i+1):10){
    logi[[k]]=glm(V1~des[,i]+des[,j],data = des,family = binomial)
    cv[k]=cv.glm(des,logi[[k]],cost=cost,K=10)$delta[1]
    k=k+1
  }
}
错误信息见图，有大神解答一下吗，谢谢，想了好久