集成学习代码疑问 提示下边出界

求帮忙看一下这个问题如何解决？R语言
建立模型的时候，一直提示Error in [<-(*tmp*, , i, value = matrix(as.numeric(pred == levels(vardep)[i]), :
subscript out of bounds