library(Daim)
data(Daim.data3)
M <- roc(Daim.data3[,2], Daim.data3[,1], "pos")
plot(M)
M <- roc(Daim.data3[,-1], Daim.data3[,1], "pos")
plot(M, color=1:4)
M <- roc(Daim.data3[,-1], Daim.data3[,1], "pos")
plot(M, color="black", lty=1:4)
Run the code above in your browser using DataLab