x <-data.frame(matrix(c(12, 26, 16, 60 ),ncol=1))
rownames(x) <- c('a','b','c','d')
y <- data.frame(matrix(c(6, 8, 9, 15 ),ncol=1))
rownames(y) <- c('a','b','c','d')
result <- SDEA(x=x, y=y, orientation = "input", rts = "crs", Cook = FALSE)
# Examine the efficiency score for DMUs
print(result$Efficiency)
Run the code above in your browser using DataLab