Displaying 1 result from an estimated 1 matches for "survff".
Did you mean:
survey
2011 Nov 30
0
formula for calculating the survival probability for nomogram
...[[5]]$points[1]
+
(cytcyt=='Positive')*nom[[6]]$points[2]+(Cyt_PCDK2=='Positive')*nom[[7]]$points[2]
summary(tot.points)
data22 <- data.frame(retime=retime, dfs=dfs, tot.points=tot.points)
fit <- cph(Surv(retime, dfs) ~ tot.points,data=data22 ,surv=T, x=T, y=T,
time.inc=5)
survff <- survfit.cph(fit, newdata=data22)
times <-survff$time
probb <- survff$surv
############# 5 year ##################
indd <- times==times[times<=5][length(times[times<=5])]
probb2 <- probb[indd,] ## 5-year surv prob for each patient
I would very much appreciate any assist...