1ciobj <- ci.se(obj, specificities=seq(0, 1, l=25))
2dat.ci <- data.frame(x = as.numeric(rownames(ciobj)),
3 lower = ciobj[, 1],
4 upper = ciobj[, 3])
5
6ggroc(obj) + theme_minimal() + geom_abline(slope=1, intercept = 1, linetype = "dashed", alpha=0.7, color = "grey") + coord_equal() +
7 geom_ribbon(data = dat.ci, aes(x = x, ymin = lower, ymax = upper), fill = "steelblue", alpha= 0.2) + ggtitle(capture.output(obj$ci))
8