#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覯讌 伎願 螳 蟇煙る所軌..
鏤