data(trueMatrix)
pep<-matrix(runif(225,0.2,1)*trueMatrix+runif(225,0,0.5)*(1-trueMatrix),15,15)
plot(0:1, 0:1, t="l", col="grey", xlab="False positive rate",
ylab="False negative rate",main="An ROC curve.")
linesROC(trueMatrix,pep)
Run the code above in your browser using DataLab