Error in fit$surv.summary[2, , 1] : subscript out of bounds

构建列线图校正曲线的时候出现这个错误，请问是什么问题？代码如下：

all_fiels=list.files(path = dir ,pattern='*.xml$',recursive=T)##导入文件
cl = lapply(all_fiels, function(x){
             result <- xmlParse(file = file.path(dir,x)) 
              rootnode <- xmlRoot(result)  
              xmldataframe <- xmlToDataFrame( rootnode[2] ) 
              return(t(xmldataframe)) })
clinical <- t(do.call(cbind,cl))
write.table(clinical,file="clinical.txt",sep="\t",quote=F,row.names = F)  

文件不知道怎么传上来呢？请联系我发送文件，谢谢！