data(ktfs)
DT <- ktfs
roc <- sMSROC(marker = DT$score,
status = DT$failure,
observed.time = DT$time,
time = 5,
meth = "S")
probs <- probs_pred(sMS = roc)
probs$plot
Run the code above in your browser using DataLab