Displaying 1 result from an estimated 1 matches for "timind".
Did you mean:
timing
2011 Apr 06
1
Error in match.names(clabs, names(xi))
...<- survfit(Surv(Gastric$time,Gastric$Dth)~1) ## 88 distinct times
#Gastric$time is all the time points either death or largest obervation
time.
#srvGastA$time is all the unique times
newGas <- data.frame(start=0, stop=1, Dth=1, Ploidy=1, tim=0)
#newGas <- r(0,1,1,1,0)
for (i in 2:90) {
timind <- match(Gastric$time[i],srvGastA$time)
tmpmat <- array(0, dim=c(timind,5))#build an array with dim('index',5)
tmpmat[,4] <- rep(Gastric[i,1], timind)#fourth column, return i's group
tmpmat[timind,3] <- Gastric$Dth[i]
tmpmat[,1] <- if(timind>1) c(0,srvG...