for (contrast in names(e$rocs)) { plot(e$rocs[[contrast]][[1]], col = "green", main = contrast) plot(e$rocs[[contrast]][[2]], col = "blue", add = TRUE) }