Displaying 1 result from an estimated 1 matches for "survcph".
Did you mean:
survcov
2005 Jul 11
1
validation, calibration and Design
...ary(Hmisc)
library(Design)
data1 #dataframe with predictor variables A and B, cens and time
columns (months)
ddist1 <- datadist(data1)
options(datadist='ddist1')
s1 <- Surv(data1$time, data1$cens)
cph.nomo <- cph(s1 ~ A+B, surv=T, x=T, y=T, time.inc=60)
survcph <- Survival(cph.nomo, x=T, y=T, time.inc=60, surv=T)
surv5 <- function(lp) survcph(60, lp)
nomogram(cph.nomo, lp=T, conf.int=F, fun=list(surv5, surv7),
funlabel=c("5 yr DFS"))
# now have a useful nomogram model, with good discrimination and
#calibration when checked with va...