#data(zhang)
#moda1="mod1"
#moda2="mod2"
#data=read.manually.introduced(zhang, moda1, TRUE, moda2, TRUE, "status", TRUE)
#sim1.ind=unlist(data[1])
#sim2.ind=unlist(data[2])
#sim1.sta=unlist(data[3])
#sim2.sta=unlist(data[4])
#sim1.pred <- prediction(sim1.ind, sim1.sta)
#sim2.pred <- prediction(sim2.ind, sim2.sta)
#sim1.curve <- performance(sim1.pred,"tpr","fpr")
#sim2.curve <- performance(sim2.pred,"tpr","fpr")
#roc.curves.plot(sim1.curve, sim2.curve,mod1=moda1,mod2=moda2)Run the code above in your browser using DataLab