关于#r语言#plsreg1的问题:找不到报错原因

我需要用偏最小二乘法回归,在数据的第一列和之后的所有列的数据之间建立关系,得到回归系数。
我现在的问题是两份数据的第二列到最后一列是一样的,只有第一列数据不同,同样的代码,一份数据可以运行,一份报错,而我找不到为什么报错。

报错code是:pls1 = plsreg1(data[,2:ncol(data)], data[,1,drop=FALSE], comps=NULL, crosval=TRUE)
报错内容是:Error in apply(Hot[, 1:h], 1, cumsum) : dim(X)的值必需是正数。
请问这个问题该怎么解决呀?