我正在进行DEA(数据包络分析)分析,以分析不同银行效率的相对影响。
我使用的软件包是rDEA和kableExtra。
此分析的目的是测量输入和输出变量的相对影响,我用它们来检查每个银行的效率。
问题是我的代码仅包含四个输出变量中的两个,而在代码中我找不到它的任何地方。
你们中的一些人可以确定问题所在吗?
先谢谢您!
我试图以几种不同的方式格式化数据,将创建的“ inp_var”和“ out_var”分配为矩阵。
#install.packages('rDEA')
#install.packages('dplyr')
#install.packages('kableExtra')
library(kableExtra)
library(rDEA)
library(dplyr)
dea <- tbl_df(PANELDATA)
head(dea)
inp_var <- select(dea, 'IE', 'NIE')
out_var <- select(dea, 'L', 'D', 'II','NII')
inp_var <- as.matrix(inp_var)
out_var <- as.matrix(out_var)
model <- dea(XREF= inp_var, YREF = out_var, X = inp_var, Y = out_var, model= "output", RTS = "constant")
model
对于每个观察,我想要一个0到1之间的数字,其中最有效的一个接收1。无论我是否包含两个额外的输出变量L和II,我现在得到的结果都是相同的。
L代表向公众贷款,II代表利息收入,如果这些变量对银行的效率没有影响,那将很奇怪。
答案 0 :(得分:0)
我认为您可以输入以下内容:
result <- cbind(round(model$thetaOpt, 3), round(model$lambda, 3))
rownames(result)<-dea[[1]]
colnames(result)<-c("Efficiency", rownames(result))
kable(result[,])