x <- matrix(c(1,2,3,4),ncol=1,dimnames=list(LETTERS[1:4],"X"))
y <- matrix(c(1,3,4,3),ncol=1,dimnames=list(LETTERS[1:4],"Y"))
# Simple radial DEA super-efficiency
SDEA(x, y, rts="vrs", orientation="input")
# Simple radial DEA super-efficiency with slack maximization
SDEA(x, y, rts="vrs", orientation="input", slack=TRUE)
# Cook's super-efficiency with slack maximization
SDEA(x, y, rts="vrs", orientation="input", slack=TRUE, cook=TRUE)
# Example of secondary objective function
x <- matrix(c(8,2,4,7,10,12,2,8,4,3,2,2),ncol=2,dimnames=list(LETTERS[1:6]))
colnames(x) = c("X1", "X2")
y <- matrix(c(1,1,1,1,1,1),ncol=1,dimnames=list(LETTERS[1:6],"Y"))
z <- matrix(c(1:6),ncol=1,dimnames=list(LETTERS[1:6],"Z"))
SDEA (x, y, rts="crs", orientation="input", slack=FALSE, second="min", z=z)
Run the code above in your browser using DataLab