Handle changing xlim in plot.roc

[xrobin]

The following piece of code in plot.roc handling legacy.axis fails to rescale with xlim:

        lab.at <- seq(1, 0, -0.2)
        if (x$percent) 
            lab.at <- lab.at * 100
        lab.labels <- lab.at
        if (legacy.axes) 
            lab.labels <- rev(lab.labels)

[xrobin]

Should probably use something like

lab.at <- axTicks(side=1)

and ignore the percent case (auto dealt with by axTicks).

[xrobin]

Still need to fix the axis labels, as the current rounding is too harsh for small intervals. See

data(aSAH)
rocobj <- roc(aSAH$outcome, aSAH$ndka, percent=FALSE)
plot(rocobj, legacy.axes = TRUE)
plot(rocobj, legacy.axes = FALSE)
plot(rocobj, xlim = c(.8, .2), asp=NA, legacy.axes = TRUE)
plot(rocobj, xlim = c(.8, .2), asp=NA, legacy.axes = FALSE)
plot(rocobj, xlim = c(.8, .5), asp=NA, legacy.axes = TRUE)
plot(rocobj, xlim = c(.8, .5), asp=NA, legacy.axes = FALSE)

rocobj <- roc(aSAH$outcome, aSAH$ndka, percent=TRUE)
plot(rocobj, legacy.axes = TRUE)
plot(rocobj, legacy.axes = FALSE)
plot(rocobj, xlim = c(80, 20), asp=NA, legacy.axes = TRUE)
plot(rocobj, xlim = c(80, 20), asp=NA, legacy.axes = FALSE)
plot(rocobj, xlim = c(80, 50), asp=NA, legacy.axes = TRUE)
plot(rocobj, xlim = c(80, 50), asp=NA, legacy.axes = FALSE)

[xrobin]

Labels look OK now.