The user enters individual survival data. The area under the prognostic ROC curve is assessed by using the trapezoidal rules. The extrapolated areas (when survival curves do not reach 0) are performed by assuming pessimist, optimist and non-informative situation. The confidence intervals are obtained by non-parametric bootstrapping.

1 | ```
IndividualPROC(times, failures, variable, B)
``` |

`times` |
A numeric vector with the follow up times. |

`failures` |
A numeric vector with the event indicator (0=right censored, 1=event). |

`variable` |
A numeric vector with the result of the binary test (only two groups). The variable equals 1 for the high risk group and 0 for the low risk group. |

`B` |
The number of bootstrap samples to compute the confidence intervals. The default value is 0, which corresponds to no confidence interval computation. |

The maximum prognostic time is the minimum between the two last observed times of failure in both groups.

`max.time` |
This is the maximum prognostic time used for the analysis |

`table` |
This data frame presents the different time cut-offs associated with the coordinates of the ROC curves. |

`auc` |
This data frame presents the different estimations of the area under the prognostic ROC curve: the lower bound, the pessimist, the non-informative, the optimist and the upper bound. |

`CI.95` |
This data frame presents the 95 percentage confidence intervals of the area under the prognostic ROC curve: the lower bound, the pessimist, the non-informative, the optimist and the upper bound. |

`auc.boot` |
This data frame presents the different estimations of the area under the prognostic ROC curve for each of the |

Y. Foucher <Yohann.Foucher@univ-nantes.fr> and

C. Combescure <Christophe.Combescure@hcuge.ch>

Combescure C, Perneger TV, Weber DC, Daures JP and Foucher Y. Prognostic ROC curves: a method for representing the overall discriminative capacity of binary markers with right-censored time-to-event endpoints. Manuscript in press. Epidemiology. 2013.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ```
###################################################################
# example of two samples with different exponential distributions #
###################################################################
n1 <- 200
n2 <- 200
grp <- c(rep(1, n1), rep(0, n2))
time.evt <- c(rexp(n1, rate = 1.2), rexp(n2, rate = 0.5))
time.cen <- rexp(n1+n2, rate = 0.2)
time <- pmin(time.evt, time.cen)
evt <- 1*(time.evt < time.cen)
# Illustration of both survival curves
surv.temp <- survfit(Surv(time, evt) ~ grp)
plot(surv.temp, lty = 2:3)
# Computation of the prognostic ROC curve
proc.result <- IndividualPROC(time, evt, grp, B=50)
# Use B>50 for real applications
# Representation of the prognostic ROC curve
plot(proc.result$table$x, proc.result$table$y, type="l",
lwd=2, xlim=c(0,1), ylim=c(0,1),
xlab="1-Survival in the low risk group",
ylab="1-Survival in the high risk group")
abline(c(0,0), c(1,1), lty=2)
# The corresponding 95% CI of the pessimist value
proc.result$CI.95$pessimist
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.