#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번째 플레이어가 가장 걱정스럽군..