R/plot.nproc.R

In nproc: Neyman-Pearson (NP) Classification Algorithms and NP Receiver Operating Characteristic (NP-ROC) Curves

#' Plot the nproc band(s).
#' @export
#' @method plot nproc
#' @importFrom graphics legend
#' @importFrom graphics lines
#' @param x fitted nproc object using \code{nproc}.
#' @param ... additional arguments.
#' @seealso \code{\link{npc}}, \code{\link{nproc}}
#' @examples
#' n = 1000
#' x = matrix(rnorm(n*2),n,2)
#' c = 1+3*x[,1]
#' y = rbinom(n,1,1/(1+exp(-c)))
#' fit = nproc(x, y, method = 'lda')
#' plot(fit)

plot.nproc <- function(x, ...) {

    plot(x$typeI.u, 1 - x$typeII.u, xlab = expression(paste('type I error upper bound ', alpha)), ylab = "1 - conditional type II error", type = "l", ...)

    lines(x$typeI.u, 1 - x$typeII.l, ...)

}