在生存包中使用survreg和weibull时，coxph.wtest中出现错误，R

我使用survreg函数和weibull分布来预测最后一行数据的生存时间，但我得到了错误消息

我的数据是：

Train <- data.frame(Sum=c(2,2,2,2,2),
                    Days=c(21,21,21,21,21),
                    Status=c(1,1,1,1,1))
Test <- data.frame(Sum=2,
                   Days=21,
                   Status=1)

这些数据只是我全部数据的一小部分。除此之外，所有其他数据都运行良好。看起来这是因为所有的天数和总和都是一样的。我把火车换成：

Train <- data.frame(Sum=c(2,2,2,2,2),
                    Days=c(21,21,21,21,20),
                    Status=c(1,1,1,1,1))

---

Train你知道为什么吗？我遇到了同样的问题。
Error in coxph.wtest(t(x) %*% (wt * x), c((wt * eta + weights * deriv$dg) %*%  : 
  NA/NaN/Inf in foreign function call (arg 3)

Train <- data.frame(Sum=c(2,2,2,2,2),
                    Days=c(21,21,21,21,20),
                    Status=c(1,1,1,1,1))