library(cenROC)
# Right censored data
data(mayo)
resu <- cenROC(Y=mayo$time, M=mayo$mayoscore5, censor=mayo$censor, t=365*6, plot="FALSE")
youden(resu, plot="TRUE")
# Interval censored data
data(hds)
resu1 = IntROC(L=hds$L, R=hds$R, M=hds$M, t=2)
youden(resu1, plot="TRUE")
Run the code above in your browser using DataLab