###We generate a marker to serve as an example
Prob<-c(rnorm(10000,0.4,0.1),rnorm(10000,0.5,0.05))
yt<-rep(c(0,1),c(10000,10000))
#We choose a rate of 10% for misclassified events.
Efficacy(Prob=Prob,yt=yt,z=10)
Run the code above in your browser using DataLab