Return to Answer

added 38 characters in body

Source Link

edited Mar 28, 2012 at 21:45

chl

55.4k
23
235
411

#UsingUsing R

library(rms)

x <- cph(Surv(time, event) ~ pred 1 + pred2, x=TRUE, y=TRUE, surv=TRUE, time.inc =1, dxy = TRUE, data = dataname)

c1 <- calibrate(x, u=1):

plot(c1)

library(rms) x <- cph(Surv(time, event) ~ pred 1 + pred2, x=TRUE, y=TRUE, surv=TRUE, time.inc =1, dxy = TRUE, data = dataname) c1 <- calibrate(x, u=1) plot(c1)

#Using R

library(rms)

x <- cph(Surv(time, event) ~ pred 1 + pred2, x=TRUE, y=TRUE, surv=TRUE, time.inc =1, dxy = TRUE, data = dataname)

c1 <- calibrate(x, u=1)

plot(c1)

Using R:

library(rms) x <- cph(Surv(time, event) ~ pred 1 + pred2, x=TRUE, y=TRUE, surv=TRUE, time.inc =1, dxy = TRUE, data = dataname) c1 <- calibrate(x, u=1) plot(c1)