Displaying 1 result from an estimated 1 matches for "surv7".
Did you mean:
surv
2005 Jul 11
1
validation, calibration and Design
...s(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 validate and calibrate (not shown)
#....move on to validation cohort of n=800
Data2 #Validation data with same predictor variables A, B, cens, time
# do I...