cv.glmnet 逻辑下标太长，求大神解答，在线等，急

我在跑cv.glmnet做Lasso COx时出现了逻辑下标太长的错误，不知道该怎么弄，求大神帮忙看看问题出在哪儿，跪谢
这是原数据集
代码如下：
x<-as.matrix(data1[,3:22])
time<-as.numeric(data1$time)
  status<-as.numeric(data1$status)

y<-cbind(time,status)
fit1_cv=cv.glmnet(x,y,family="cox",foldid=foldid)

错误: (下标)逻辑下标太长
求大神们帮帮忙 不胜感激