###We generate a marker to serve as an example
Prob<-c(rnorm(1000,0.4,0.1),rnorm(1000,0.5,0.05))
yt<-rep(c(0,1),c(1000,1000))
#We choose a grid of threshold points.
Th<-seq(1,100)
#Estimte the Clinical utility table
CUC_table(Th, Prob, yt)
Run the code above in your browser using DataLab