ROC for 100 training sets

thres <- read.csv("thresholdG.csv", sep = ",")
fpCut <- cut(thres$FP, breaks = 20)
boxplot(thres$TP ~ fpCut, xlab = "False Positive rate", ylab = "True Positive rate", 
    xaxt = "n")
axis(1, at = c(1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21), c(0, 0.1, 0.2, 0.3, 0.4, 
    0.5, 0.6, 0.7, 0.8, 0.9, 1))
abline(0, 0.05, col = "red")
text(12, 0.2, "Average AUC=0.77")