数据包络分析(Data Envelopment Analysis,DEA)是一种非参数效率评估方法,用于评估决策单元(DMU)的效率。面板数据(Panel Data)是一段时间内多次观察一组实体(通常是组织或个人),收集每个实体的多维度数据。面板数据的DEA分析可用R语言Benchmarking包执行DEA分析。
先安装并加载Benchmarking包。
安装:install.packages("Benchmarking")
加载Benchmarking包:library(Benchmarking)
创建一个面板数据集。设包含三个实体(公司)和两个时期(年份)的数据集,每个实体都有两个输入指标(X1和X2)和一个输出指标(Y):
# 创建面板数据集
data <- data.frame(
entity = rep(c("Company1", "Company2", "Company3"), each = 2), # 每个实体都有两个时期的数据
period = rep(c("Year1", "Year2"), 3), # 有两个时期的数据
X1 = c(10, 15, 20, 25, 30, 35), # 输入指标X1
X2 = c(20, 25, 30, 35, 40, 45), # 输入指标X2
Y = c(40, 50, 60, 70, 80, 90) # 输出指标Y
)
用Benchmarking包的deap函数进行DEA分析:
# 进行DEA分析
result <- deap(data[, -1], data$period, "VRS") # VRS表示可变返回规模假设
最后,可查看DEA分析的结果:
# 查看结果
print(result)


雷达卡




京公网安备 11010802022788号







