我正在尝试使用一种算法：它给我以下错误：错误：（list）对象不能被强制键入'double。
如何解决此问题？
文件1：digisurv是一个具有3列的Excel文件（可在此处找到：https://sheet.zoho.com/sheet/editor.do?doc=ec4c3a19213271b8fe51c0aeeb24ed9ddfe3cac45d5c7b211f7e3722f7b33f475e89481b6ea8fba2bde01c00346402ec6b1ee8ac46dfd1fb09728ebbd9fac599）
文件2：风险是一个包含5列的Excel文件（在此处找到：https://sheet.zoho.com/sheet/editor.do?doc=1358107a77b523954e578759ec7ecc0d0645cd24ecfab93548edf9c29fe7e8cf1de8cfefe0357322ab2c007ef65e9177da7c1d5ad8cff3f9054af16a80a39e4b）
KMdatafile<-"KMdata study2 figA arm1 time1 ne.txt"
KMdataIPDfile<-"KMdataIPD study2 figA arm1 time1 ne.txt"
tot.events<-"NA"
arm.id<-1
t.S<-digisurv[,2]
S<-digisurv[,3]
t.risk<-risk[,2]
lower<-risk[,3]
upper<-risk[,4]
n.risk<-risk[,5]
n.int<-length(n.risk)
n.t<- upper[n.int]
问题来了：
n.censor<- rep(0,(n.int-1))
n.hat<-rep(n.risk[1]+1,n.t)
cen<-rep(0,n.t)
d<-rep(0,n.t)
KM.hat<-rep(1,n.t)
last.i<-rep(1,n.int)
sumdL<-0
这给我一个错误：（list）对象不能被强制在以下各行上键入“ double”（总共5个相同的错误）
arm<-rep(arm.id,n.risk[1])
n.hat<-rep(n.risk[1]+1,n.t)
cen<-rep(0,n.t)
d<-rep(0,n.t)
KM.hat<-rep(1,n.t)
如果您有任何疑问，请随时提问！