Я пытаюсь использовать алгоритм: который дает мне следующую ошибку: Ошибка: (список) объект не может быть приведен к типу 'double.
Как я мог решить эту проблему?
Файл 1: digisurv - это файл Excel с 3 столбцами (находится здесь: https://sheet.zoho.com/sheet/editor.do?doc=ec4c3a19213271b8fe51c0aeeb24ed9ddfe3cac45d5c7b211f7e3722f7b33f475e89481b6ea8fba2bde01c00346402ec6b1ee8ac46dfd1fb09728ebbd9fac599)
Файл 2: риск - это файл Excel с 5 столбцами (находится здесь: 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
, которая дает мне объект Error: (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)
Если у вас есть вопросы, пожалуйста, не стесняйтесь спрашивать!