r语言score函数报错求解

运行Score(list("model.step"=model.step),formula=Surv(OS,osevent)~1,data=data,times=time, plots="roc",metrics=c("AUC"))
时报错:
Error in [.data.table(data, , :=(ID, 1:N)) :
试图将 2 项赋值给 81 项(列 'ID')。如果想'回收重用'('recycle')右手侧,请使用 rep() 以将该意图清晰地表述给阅读代码的人。
In addition: Warning message:
In 1:N : numerical expression has 81 elements: only the first used

感觉应该是数据的问题,但不知道是怎么出错,也不知道Error in [.data.table(data, , :=(ID, 1:N)) : 这个语句在哪里