#title 자료 포락 분석 (Data envelopment analysis)

{{{
#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)
}}}

attachment:dea_exam.png

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

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

결과
{{{
> e$objval
[1] 1.0000000000 1.0000000000 1.0000000000 0.5454545455 0.6931818182
}}}

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