h <- 500
w <- 500
grid.step <- 50
plot( c(0,w), c(0,h),
xaxs = "i",yaxs = "i",
xaxt = 'n', yaxt = 'n',
type = "n",
xlab = "False positive rate", ylab = "True positive rate")
x <- c(0, 50, 100, 500)
y <- c(0, 200, 300, 500)
axis(2,y,labels=c('0','tpr1','tpr2','1'))
axis(1,x,labels=c('0','fpr1','fpr2','1'))
gx <- grid.step/2
while (gx <= w) {
abline(v = gx, col="gray", lty="dotted")
gx <- gx + grid.step/2
}
gy <- grid.step
while (gy <= h) {
abline(h = gy, col="gray", lty="dotted")
gy <- gy + grid.step
}
for (i in 2:3) {
abline(v=x[i],lty='dashed')
abline(h=y[i],lty='dashed')
}
lines( x, y, lty=1, type='o')