performance.diagram(main = "Sample Plot")
RB1 <- matrix(c(95, 55, 42, 141), ncol = 2)
## at point
pts <- table.stats(RB1)
boot.pts <- table.stats.boot(RB1, R = 1000 )
## add confidence intervals
segments(x0 = 1 - pts$FAR, y0 = boot.pts["up","pod"], x1 = 1 - pts$FAR, y1 = boot.pts["dw", "pod"], col = 2, lwd = 2)
segments(x0 = 1 - boot.pts["up" ,"far"], y0 = pts$POD, x1 = 1 - boot.pts["dw", "far"], y1 = pts$POD, col = 2, lwd = 2)
points(1 - pts$FAR, pts$POD, col = 2, cex = 2)Run the code above in your browser using DataLab