<-pbc[!...is.na(pbc$trt),] # select only randomised subjects
pbc$status<-as.numeric(pbc$status==2) # create event...$time,
delta=pbc$status,marker=pbc$bili,
cause=1,weighting="marginal...$time,
delta=pbc$status,marker=pbc$bili,
other_markers=as.matrix...ROC.albumin<-timeROC(T=pbc$time,
delta=pbc$status,marker=-pbc$albumin,