#install.packages("Benchmarking")
library("Benchmarking")

play_time <- c(60,200,250,180,160) #플레이타임
battle_power <- c(700,1800,2000,1000,1100) #전투력
dea.plot.frontier(play_time, battle_power,txt=TRUE)

플레이어 4,5는 다른 플레이어들에 비해 효율성이 떨어진다.

e <- dea(play_time, battle_power)
e$objval

결과

> e$objval
[1] 1.0000000000 1.0000000000 1.0000000000 0.5454545455 0.6931818182

음.. 4번째 플레이어가 가장 걱정스럽군..