Running examples in 'Benchmarking-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Benchmarking-package
> ### Title: Data Envelopment Analyses (DEA) and Stochastic Frontier Analyses
> ###   (SFA) - Model Estimations and Efficiency Measuring
> ### Aliases: Benchmarking-package Benchmarking
> ### Keywords: package models efficiency
> 
> ### ** Examples
> 
> # Plot of different technologies
> x <- matrix(c(100,200,300,500),ncol=1,dimnames=list(LETTERS[1:4],"x"))
> y <- matrix(c(75,100,300,400),ncol=1,dimnames=list(LETTERS[1:4],"y"))
> dea.plot(x,y,RTS="vrs",ORIENTATION="in-out",txt=rownames(x))
> dea.plot(x,y,RTS="drs",ORIENTATION="in-out",add=TRUE,lty="dashed",lwd=2)
> dea.plot(x,y,RTS="crs",ORIENTATION="in-out",add=TRUE,lty="dotted")
>                       
> dea.plot(x,y,RTS="fdh",ORIENTATION="in-out",txt=rownames(x),main="fdh")
> dea.plot(x,y,RTS="irs",ORIENTATION="in-out",txt=TRUE,main="irs")
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
Benchmarking
 --- call from context --- 
dea.plot(x, y, RTS = "irs", ORIENTATION = "in-out", txt = TRUE, 
    main = "irs")
 --- call from argument --- 
if (class(x) == "matrix") {
    if (!is.null(rownames(x))) {
        txt <- rownames(x)
    }
    else if (!is.null(rownames(y))) {
        txt <- rownames(y)
    }
    else {
        txt <- 1:dim(x)[1]
    }
} else {
    txt <- 1:length(x)
}
 --- R stacktrace ---
where 1: dea.plot(x, y, RTS = "irs", ORIENTATION = "in-out", txt = TRUE, 
    main = "irs")

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (x, y, RTS = "vrs", ORIENTATION = "in-out", txt = NULL, 
    add = FALSE, wx = NULL, wy = NULL, TRANSPOSE = FALSE, fex = 1, 
    GRID = FALSE, RANGE = FALSE, param = NULL, ..., xlim, ylim, 
    xlab, ylab) 
{
    if (sum(is.na(x)) + sum(is.na(y)) > 0) 
        stop("There is one or more NA in 'x' or 'y'")
    rts <- c("fdh", "vrs", "drs", "crs", "irs", "irs2", "add", 
        "fdh+")
    if (is.numeric(RTS)) {
        cat("Number '", RTS, sep = "")
        RTStemp <- rts[1 + RTS]
        RTS <- RTStemp
        cat("' is '", RTS, "'\n", sep = "")
    }
    RTS <- tolower(RTS)
    if (!(RTS %in% rts)) 
        stop(paste("Unknown value for RTS:", RTS), quote = F)
    orientation <- c("in-out", "in", "out", "graph")
    if (is.numeric(ORIENTATION)) {
        ORIENTATION_ <- orientation[ORIENTATION + 1]
        ORIENTATION <- ORIENTATION_
    }
    ORIENTATION <- tolower(ORIENTATION)
    if (!(ORIENTATION %in% orientation)) {
        stop(paste("Unknown value for ORIENTATION:", ORIENTATION))
    }
    if (RTS == "fdh+" && ORIENTATION != "in-out") 
        stop("RTS=\"fdh+\" only works for ORIENTATION=\"in-out\"")
    if (RTS == "add" && ORIENTATION != "in-out") 
        stop("RTS=\"add\" only works for ORIENTATION=\"in-out\"")
    if (class(x) == "data.frame" && data.kontrol(x) || is.numeric(x)) {
        x <- as.matrix(x)
    }
    if (class(y) == "data.frame" && data.kontrol(y) || is.numeric(y)) {
        y <- as.matrix(y)
    }
    if (class(x) != "matrix" || !is.numeric(x)) 
        stop("x is not a numeric matrix (or data.frame)")
    if (class(y) != "matrix" || !is.numeric(y)) 
        stop("y is not a numeric matrix (or data.frame)")
    if (TRANSPOSE) {
        x <- t(x)
        y <- t(y)
        if (!is.null(wx)) {
            if (is.matrix(wx)) {
                wx <- t(wx)
            }
        }
        if (!is.null(wy)) {
            if (is.matrix(wy)) {
                wy <- t(wy)
            }
        }
    }
    if (is.matrix(x) && dim(x)[2] > 1) {
        if (is.null(wx)) {
            wx <- matrix(1, nrow = dim(x)[2], ncol = 1)
        }
        x <- x %*% wx
    }
    if (is.matrix(y) && dim(y)[2] > 1) {
        if (is.null(wy)) {
            wy <- matrix(1, nrow = dim(y)[2], ncol = 1)
        }
        y <- y %*% wy
    }
    if (add == FALSE) {
        dots = list(...)
        if (RANGE) {
            xlim <- 1.2 * range(c(0, x)) + c(0, 0.01)
            ylim <- 1.2 * range(c(0, y)) + c(0, 0.01)
        }
        if (missing(xlim)) 
            xlim = c(0, 1.2 * max(x + 0.001))
        if (missing(ylim)) 
            ylim = c(0, 1.2 * max(y + 0.0011))
        if (missing(xlab)) {
            xlab <- switch(ORIENTATION, `in` = "x1", out = "y1", 
                `in-out` = "X")
        }
        if (missing(ylab)) {
            ylab <- switch(ORIENTATION, `in` = "x2", out = "y2", 
                `in-out` = "Y")
        }
        if (RTS == "fdh+") {
            if (is.null(param)) {
                delta <- 0.15
                low <- 1 - delta
                high <- 1 + delta
            }
            else {
                if (length(param) == 1) {
                  low <- 1 - param
                  high <- 1 + param
                }
                else {
                  low <- param[1]
                  high <- param[2]
                }
            }
            xlim <- c(low, high) * xlim
            ylim <- c(low, high) * ylim
        }
        plot(x, y, xlim = xlim, ylim = ylim, xaxs = "i", yaxs = "i", 
            xlab = xlab, ylab = ylab, frame = FALSE, ...)
        if (GRID) {
            grid(col = "darkgray")
            box(col = "grey")
        }
        if (class(txt) == "logical" && txt) {
            if (class(x) == "matrix") {
                if (!is.null(rownames(x))) {
                  txt <- rownames(x)
                }
                else if (!is.null(rownames(y))) {
                  txt <- rownames(y)
                }
                else {
                  txt <- 1:dim(x)[1]
                }
            }
            else {
                txt <- 1:length(x)
            }
        }
        if (class(txt) != "logical" && length(txt) > 0) {
            text(x, y, txt, adj = c(-0.75, 0.75), cex = fex)
        }
    }
    if (RTS == "add") {
        idx <- sort(x, index.return = TRUE)
        effektive <- rep(NA, length(x))
        j <- 1
        prev <- idx$ix[1]
        effektive[j] <- prev
        for (i in idx$ix) {
            if (y[i] > y[prev]) {
                j <- j + 1
                effektive[j] <- i
                prev <- i
            }
        }
        rand <- effektive[!is.na(effektive)]
        nr <- length(rand)
        if (missing(xlim)) 
            xlim = c(0, 1.2 * max(x + 0.001))
        nx <- round(xlim[2]/x[rand])
        nx[is.infinite(nx)] <- 5
        M <- matrix(NA, nrow = prod(1 + nx), ncol = nr)
        M[, 1] <- rep(0:nx[1], prod(1 + nx[-1]))
        if (nr > 1) 
            for (j in 2:nr) {
                M[, j] <- as.integer(gl(1 + nx[j], prod(1 + nx[1:(j - 
                  1)]))) - 1
            }
        M <- M[-1, ]
        x <- M %*% as.matrix(x[rand])
        y <- M %*% as.matrix(y[rand])
        RTS <- "fdh"
    }
    if (RTS == "fdh+") {
        dea.plot.fdhPlus(x, y, param, ...)
    }
    if (ORIENTATION == "in") {
        hpts = chull(c(x, min(x), 2 * max(x)), c(y, 2 * max(y), 
            min(y)))
        if (RTS != "fdh") {
            lines(x[hpts], y[hpts], ...)
        }
        if (RTS == "fdh") {
            idx <- sort(x, index.return = T)
            prev <- idx$ix[1]
            for (i in idx$ix) {
                if (y[i] < y[prev]) {
                  lines(x[c(prev, i, i)], y[c(prev, prev, i)], 
                    ...)
                  prev <- i
                }
            }
        }
        x1fmax <- max(x[hpts], na.rm = T)
        x2fmax <- max(y[hpts], na.rm = T)
        lines(c(x1fmax, 2 * max(x)), c(min(y), min(y)), ...)
        lines(c(min(x), min(x)), c(x2fmax, 2 * max(y)), ...)
    }
    else if (ORIENTATION == "out") {
        hpts = chull(c(x, 0, 0, max(x)), c(y, 0, max(y), 0))
        hpts <- c(hpts, hpts[1])
        if (RTS != "fdh") {
            lines(x[hpts], y[hpts], ...)
            lines(c(0, min(x[hpts], na.rm = T)), c(max(y), max(y[hpts], 
                na.rm = T)), ...)
            lines(c(max(x), max(x)), c(0, min(y[hpts], na.rm = T)), 
                ...)
        }
        if (RTS == "fdh") {
            idy <- sort(y, index.return = T, decreasing = T)
            lines(c(0, x[idy$ix[1]]), c(idy$x[1], idy$x[1]), 
                ...)
            prev <- match(max(x), x)
            lines(c(max(x), max(x)), c(0, y[prev]), ...)
            prev <- idy$ix[1]
            for (i in idy$ix[-1]) {
                if (x[i] > x[prev]) {
                  lines(x[c(prev, prev, i)], y[c(prev, i, i)], 
                    ...)
                  prev <- i
                }
            }
        }
    }
    else {
        if (RTS == "crs") {
            abline(0, max(y/x), ...)
        }
        else if (RTS == "vrs" | RTS == "fdh") {
            hpts = chull(c(x, min(x), 2 * max(x), 2 * max(x)), 
                c(pmax(y, 0), 0, max(y), 0))
            lines(c(min(x), min(x)), c(0, min(y[hpts], na.rm = T)), 
                ...)
            lines(c(max(x[hpts], na.rm = T), 2 * max(x)), c(max(y), 
                max(y)), ...)
        }
        else if (RTS == "drs") {
            hpts = chull(c(x, 0, 2 * max(x), 2 * max(x)), c(pmax(y, 
                0), 0, 0, max(y)))
            lines(c(0, min(x[hpts], na.rm = T)), c(0, min(y[hpts], 
                na.rm = T)), ...)
            lines(c(max(x[hpts], na.rm = T), 2 * max(x)), c(max(y), 
                max(y)), ...)
        }
        else if (RTS == "irs") {
            hpts = chull(c(x, min(x), 2 * max(x), 2 * max(x)), 
                c(pmax(y, 0), 0, 2 * max(x) * max(y/x), 0))
            id <- which.max(y/x)
            lines(c(min(x), min(x)), c(0, min(y[hpts], na.rm = T)), 
                ...)
            lines(c(x[id], 2 * max(x)), c(y[id], 2 * max(x) * 
                y[id]/x[id]), ...)
        }
        if (RTS == "vrs" | RTS == "drs" | RTS == "irs") 
            lines(x[hpts], y[hpts], ...)
        if (RTS == "fdh" | RTS == "add") {
            idx <- sort(x, index.return = TRUE)
            prev <- idx$ix[1]
            for (i in idx$ix) {
                if (y[i] > y[prev]) {
                  lines(x[c(prev, i, i)], y[c(prev, prev, i)], 
                    ...)
                  prev <- i
                }
            }
        }
        if (RTS == "irs2") {
            lines(c(min(x), min(x)), c(0, max(y[x == min(x)], 
                na.rm = T)), ...)
            slopes <- y/x
            idmax <- which.max(y/x)
            lines(c(x[idmax], 20 * x[idmax]), c(y[idmax], 20 * 
                slopes[idmax] * x[idmax]), ...)
            sx <- sort(x, index.return = T)
            id <- which(x %in% min(x), y)
            idy <- id[which.max(y[id])]
            slope <- y[idy]/x[idy]
            hpts <- idy
            for (i in 1:length(x)) {
                if (slopes[sx$ix[i]] > slope) {
                  hpts <- c(hpts, sx$ix[i])
                  slope <- slopes[sx$ix[i]]
                }
            }
            if (length(hpts) > 1) {
                for (i in 1:(length(hpts) - 1)) {
                  lines(c(x[hpts[i]], x[hpts[i + 1]], x[hpts[i + 
                    1]]), c(y[hpts[i]], slopes[hpts[i]] * x[hpts[i + 
                    1]], y[hpts[i + 1]]), ...)
                }
            }
        }
    }
}
<bytecode: 0x3babaf8>
<environment: namespace:Benchmarking>
 --- function search by body ---
Function dea.plot in namespace Benchmarking has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1