Dea R
Dea R
May 2, 2023
Type Package
Title Conventional and Fuzzy Data Envelopment Analysis
Version 1.4.1
Author Vicente Coll-Serrano, Vicente Bolos, Rafael Benitez Suarez <rabesua@[Link]>
Maintainer Vicente Bolos <[Link]@[Link]>
Description Set of functions for Data Envelopment Analysis. It runs both classic and fuzzy DEA mod-
els. See: Banker, R.; Charnes, A.; Cooper, W.W. (1984). <doi:10.1287/mnsc.30.9.1078>, Charnes, A.; Cooper, W.W.; Rhode
2217(78)90138-
8> and Charnes, A.; Cooper, W.W.; Rhodes, E. (1981). <doi:10.1287/mnsc.27.6.668>.
License GPL
Encoding UTF-8
LazyData true
RoxygenNote 7.2.3
Depends R (>= 3.5)
Imports lpSolve, ggplot2, tidyr, plotly, igraph, writexl, dplyr,
methods, gridExtra, grDevices
NeedsCompilation no
Repository CRAN
Date/Publication 2023-05-02 09:20:02 UTC
R topics documented:
Airlines . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
bootstrap_basic . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
Coelli_1998 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 6
Coll_Blasco_2006 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7
cross_efficiency . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
cross_efficiency_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 11
Departments . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 13
Doyle_Green_1994 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 14
Economy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 15
1
2 R topics documented:
EconomyLong . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 16
efficiencies . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 17
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 18
efficiencies.dea_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 19
eff_dmus . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 20
Electric_plants . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 21
extreme_efficient . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 22
Fortune500 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 23
Fried1993 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 24
FuzzyExample . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 25
Golany_Roll_1989 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 27
Grifell_Lovell_1999 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 28
Guo_Tanaka_2001 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
Hotels . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30
Hua_Bian_2007 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34
is.deadata_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34
is.dea_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36
Kao_Liu_2003 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37
lambdas . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38
Leon2003 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39
Libraries . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40
Lim_Zhu_2015 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42
make_deadata . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43
make_deadata_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45
make_malmquist . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 47
malmquist_index . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 49
maximal_friends . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 52
modelfuzzy_guotanaka . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 53
modelfuzzy_kaoliu . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 55
modelfuzzy_possibilistic . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 57
model_additive . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 58
model_addmin . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 61
model_addsupereff . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 64
model_basic . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 66
model_deaps . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 70
model_fdh . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 72
model_multiplier . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 74
model_nonradial . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 76
model_profit . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 78
model_rdm . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 80
model_sbmeff . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 82
model_sbmsupereff . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 84
model_supereff . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 86
multipliers . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 88
PFT1981 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 89
Airlines 3
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 90
plot.dea_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 91
Power_plants . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 92
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 94
print.deadata_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 94
read_data . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 95
read_data_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 96
read_malmquist . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 97
references . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 98
rts . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 99
Ruggiero2007 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 100
slacks . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 101
[Link] . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 102
summary.dea_fuzzy . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 103
Supply_Chain . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 104
targets . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 105
Tone2001 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 106
Tone2003 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 107
undesirable_basic . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 108
Index 110
Description
Data of 28 airlines with 2 outputs and 4 inputs.
Usage
data("Airlines")
Format
Data frame with 28 rows and 7 columns. Definition of outputs (Y) and inputs (X):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Coelli, T.; Griffel-Tatje, E.; Perelman, S. (2002). "Capacity Utilization and Profitability: A De-
composition of Short-Run Profit Efficiency", International Journal of Production Economics 79,
261–278.
See Also
make_deadata, model_sbmeff
Examples
# Example. Replication of results in Aparicio et al. (2007).
data("Airlines")
data_example <- make_deadata(Airlines,
inputs = 4:7,
outputs = 2:3)
result <- model_sbmeff(data_example)
efficiencies(result)
result2 <- model_sbmeff(data_example,
kaizen = TRUE)
efficiencies(result2)
Description
To bootstrap efficiency scores, deaR uses the algorithm proposed by Simar and Wilson (1998). For
now, the function bootstrap_basic can only be used with basic DEA models.
Usage
bootstrap_basic(datadea,
orientation = c("io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
B = 2000,
h = NULL,
alpha = 0.05)
bootstrap_basic 5
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
orientation A string, equal to "io" (input oriented) or "oo" (output oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
B Number of bootstrap iterations.
h Bandwidth of smoothing window. By default h = 0.014 (you can set h equal to
any other value). The optimal bandwidth factor can also be calculated following
the proposals of Silverman (1986) and Daraio y Simar (2007). So, h = "h1"
is the optimal h referred as "robust normal-reference rule" (Daraio and Simar,
2007 p.60), h = "h2" is the value of h1 but instead of the factor 1.06 with the
factor 0.9, h = "h3" is the value of h1 adjusted for scale and sample size (Daraio
and Simar, 2007 p.61), and h = "h4" is the bandwidth provided by a Gaussian
kernel density estimate.
alpha Between 0 and 1 (for confidence intervals).
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Behr, A. (2015). Production and Efficiency Analysis with R. Springer.
Bogetoft, P.; Otto, L. (2010). Benchmarking with DEA, SFA, and R. Springer.
Daraio, C.; Simar, L. (2007). Advanced Robust and Nonparametric Methods in Efficiency Analysis:
Methodology and Applications. New York: Springer.
Färe, R.; Grosskopf, S.; Kokkenlenberg, E. (1989). "Measuring Plant Capacity, Utilization and
Technical Change: A Nonparametric Approach". International Economic Review, 30(3), 655-666.
Löthgren, M.; Tambour, M. (1999). "Bootstrapping the Data Envelopment Analysis Malmquist
Productivity Index". Applied Economics, 31, 417-425.
Silverman, B.W. (1986). Density Estimation for Statistics and Data Analysis. London: Chapman
and Hall.
Simar, L.; Wilson, P.W. (1998). "Sensitivity Analysis of Efficiency Scores: How to Bootstrap in
Nonparametric Frontier Models". Management Science, 44(1), 49-61.
Simar, L.; Wilson, P.W. (1999). "Estimating and Bootstrapping Malmquist Indices". European
Journal of Operational Research, 115, 459-471.
6 Coelli_1998
Simar, L.; Wilson, P.W. (2008). Statistical Inference in Nonparametric Frontier Models: Recent
Developments and Perspective. In H.O. Fried; C.A. Knox Lovell and S.S. Schmidt (eds.) The
Measurement of Productive Efficiency and Productivity Growth. New York: Oxford University
Press. doi:10.1093/acprof:oso/9780195183528.001.0001
Examples
# To replicate the results in Simar y Wilson (1998, p. 58) you have to
# set B=2000 (in the example B = 100 to save time)
data("Electric_plants")
data_example <- make_deadata(Electric_plants,
ni = 3,
no = 1)
result <- bootstrap_basic(datadea = data_example,
orientation = "io",
rts = "vrs",
B = 100)
result$score_bc
result$CI
Description
Data of five DMUs with two inputs and one output. Prices for inputs are available. Price for output
is not from Coelli et al. (1998).
Usage
data("Coelli_1998")
Format
Data frame with 6 rows and 5 columns. Definition of inputs (X) and outputs (Y):
Input1 Input 1
Input2 Input 2
Output Output
Price_input1 Price input 1
Price_input2 Price input 2
Price_output Price output
Coll_Blasco_2006 7
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Coelli, T.; Prasada Rao, D.S.; Battese, G.E. An introduction to efficiency and productivity analysis.
Boston: Kluwer Academic Publishers.
See Also
make_deadata
Examples
# Example. Replication of results in Coelli et al. (1998, p.166).
# Cost efficiency model.
data("Coelli_1994")
# Selection of prices: data_prices is the trasnpose where the prices for inputs are.
data_prices <- t(Coelli_1998[, 5:6])
Description
Data of six authorized dealers with two inputs and two outputs.
Usage
data("Coll_Blasco_2006")
8 cross_efficiency
Format
Data frame with 6 rows and 5 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Coll-Serrano, V.; Blasco-Blasco, O. (2006). Evaluacion de la Eficiencia mediante el Análisis En-
volvente de Datos. Introduccion a los Modelos Básicos.
See Also
make_deadata
Examples
# Example. How to read data with deaR
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
dmus = 1,
ni = 2,
no = 2)
Description
Computes arbitrary, benevolent and aggressive formulations of cross-efficiency under any returns-
to-scale. Doyle and Green (1994) present three alternatives ways of formulating the secondary goal
(wich will minimize or maximize the other DMUs’ cross-efficiencies in some way). Methods II and
III are implemented in deaR with any returns-to-scale. The maverick index is also calculated.
cross_efficiency 9
Usage
cross_efficiency(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
epsilon = 0,
orientation = c("io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
selfapp = TRUE,
correction = FALSE,
M2 = TRUE,
M3 = TRUE)
Arguments
datadea An object of class dea or deadata. If it is of class dea it must have been obtained
with some of the multiplier DEA models.
dmu_eval A numeric vector. Only the multipliers of DMUs in dmu_eval are computed. If
NULL (default), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
epsilon Numeric, multipliers must be >= epsilon.
orientation A string, equal to "io" (input-oriented) or "oo" (output-oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
selfapp Logical. If it is TRUE, self-appraisal is included in the average scores of A and e.
correction Logical. If it is TRUE, a correction is applied in the "vrs" input-oriented model
in order to avoid negative cross-efficiencies, according to Lim & Zhu (2015).
M2 Logical. If it is TRUE, it computes Method II for aggresive/benevolent estima-
tions.
M3 Logical. If it is TRUE, it computes Method III for aggresive/benevolent estima-
tions.
Note
(1) We can obtain negative cross-efficiency in the input-oriented DEA model under no constant
returns-to-scale. However, the same does not happen in the case of the output-oriented VRS DEA
model. For this reason, the proposal of Lim and Zhu (2015) is implemented in deaR to calculate the
input-oriented cross-efficiency model under no constant returns-to-scale.
(2) The multiplier model can have alternate optimal solutions (see note 1 in model_multiplier). So,
depending on the optimal weights selected we can obtain different cross-efficiency scores.
10 cross_efficiency
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Sexton, T.R., Silkman, R.H.; Hogan, A.J. (1986). Data envelopment analysis: critique and exten-
sions. In: Silkman RH (ed) Measuring efficiency: an assessment of data envelopment analysis, vol
32. Jossey-Bass, San Francisco, pp 73–104. doi:10.1002/ev.1441
Doyle, J.; Green, R. (1994). “Efficiency and cross efficiency in DEA: derivations, meanings and the
uses”, Journal of Operational Research Society, 45(5), 567–578. doi:10.2307/2584392
Cook, W.D.; Zhu, J. (2015). DEA Cross Efficiency. In: Zhu, J. (ed) Data Envelopment Analysis.
A Handbook of Models and Methods. International Series in Operations Research & Management
Science, vol 221. Springer, Boston, MA, 23-43. doi:10.1007/9781489975539_2
Lim, S.; Zhu, J. (2015). "DEA Cross-Efficiency Under Variable Returns to Scale". Journal of
Operational Research Society, 66(3), p. 476-487. doi:10.1057/jors.2014.13
See Also
model_multiplier, cross_efficiency_fuzzy
Examples
# Example 1.
# Arbitrary formulation. Input-oriented model under constant returns-to-scale.
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989,
inputs = 2:4,
outputs = 5:6)
result <- cross_efficiency(data_example,
orientation = "io",
rts = "crs",
selfapp = TRUE)
result$Arbitrary$cross_eff
result$Arbitrary$e
# Example 2.
# Benevolent formulation (method II). Input-oriented.
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989,
inputs = 2:4,
outputs = 5:6)
result <- cross_efficiency(data_example,
orientation = "io",
selfapp = TRUE)
result$M2_ben$cross_eff
cross_efficiency_fuzzy 11
result$M2_ben$e
# Example 3.
# Benevolent formulation (method III). Input-oriented.
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989,
inputs = 2:4,
outputs = 5:6)
result <- cross_efficiency(data_example,
orientation = "io",
selfapp = TRUE)
result$M3_ben$cross_eff
result$M3_ben$e
# Example 4.
# Arbitrary formulation. Output-oriented.
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989,
inputs = 2:4,
outputs = 5:6)
result <- cross_efficiency(data_example,
orientation = "oo",
selfapp = TRUE)
result$Arbitrary$cross_eff
result$Arbitrary$e
# Example 5.
# Arbitrary formulation. Input-oriented model under vrs returns-to-scale.
data("Lim_Zhu_2015")
data_example <- make_deadata(Lim_Zhu_2015,
ni = 1,
no = 5)
cross <- cross_efficiency(data_example,
epsilon = 0,
orientation = "io",
rts = "vrs",
selfapp = TRUE,
M2 = FALSE,
M3 = FALSE)
cross$Arbitrary$e
cross_efficiency_fuzzy
Cross efficiency fuzzy analysis
Description
Computes the cross-efficiency fuzzy tables from DEA fuzzy data or a Guo-Tanaka DEA model
solution. The (crisp) relative efficiencies for the case h = 1 are obtained from the CCR model
(model_multiplier).
12 cross_efficiency_fuzzy
Usage
cross_efficiency_fuzzy(datadea,
orientation = c("io", "oo"),
h = 1,
selfapp = TRUE)
Arguments
datadea An object of class dea_fuzzy or deadata_fuzzy. If it is of class dea_fuzzy it
must have been obtained with modelfuzzy_guotanaka.
orientation A string, equal to "io" (input-oriented) or "oo" (output-oriented).
h A numeric vector with the h-levels (in [0,1]).
selfapp Logical. If it is TRUE, self-appraisal is included in the average scores of A and e.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Doyle, J.; Green, R. (1994). “Efficiency and Cross Efficiency in DEA: Derivations, Meanings and
the Uses”, Journal of Operational Research Society, 45(5), 567–578. doi:10.2307/2584392
Guo, P.; Tanaka, H. (2001). "Fuzzy DEA: A Perceptual Evaluation Method", Fuzzy Sets and Sys-
tems, 119, 149–160. doi:10.1016/S01650114(99)001062
León, T.; Liern, V.; Ruiz, J.L.; Sirvent, I. (2003). "A Fuzzy Mathematical Programming Ap-
proach to the assessment of efficiency with DEA Models", Fuzzy Sets Systems, 139(2), 407–419.
doi:10.1016/S01650114(02)006085
Sexton, T.R., Silkman, R.H.; Hogan, A.J. (1986). Data envelopment analysis: critique and exten-
sions. In: Silkman RH (ed) Measuring efficiency: an assessment of data envelopment analysis, vol
32. Jossey-Bass, San Francisco, pp 73–104. doi:10.1002/ev.1441
Examples
data("Guo_Tanaka_2001")
datadea <- make_deadata_fuzzy(datadea = Guo_Tanaka_2001,
[Link] = 2:3,
[Link] = 4:5,
[Link] = 6:7,
[Link] = 8:9)
result <- cross_efficiency_fuzzy(datadea = datadea,
h = seq(0, 1, 0.2))
Departments 13
Description
Data from 20 University accounting departments in the UK.
Usage
data("Departments")
Format
Data frame with 20 rows and 11 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Tomkins, C.; Green, R. (1988). "An Experiment in the Use of Data Envelopment Analysis for
Evaluating the Efficiency of UK University Departments of Accounting", Financial Accountability
and Management, 4(2), 147-164. doi:10.1111/j.14680408.1988.tb00296.x
See Also
make_deadata, model_basic
14 Doyle_Green_1994
Examples
# Example.
# Replication of results DEA1 in Tomkins and Green (1988)
data("Departments")
# Calculate Total income
Departments$Total_income <- Departments[, 5] + Departments[, 6] + Departments[, 7]
data_example <- make_deadata(Departments,
inputs = 9,
outputs = c(2, 3, 4, 12))
result <- model_basic(data_example,
orientation = "io",
rts = "crs")
efficiencies(result) # Table 3 (p.156)
references(result) # Table 3 (p.157)
Description
Data adapted from Tomkins and Green (1988). 13 DMUs using 3 inputs to produce 2 outputs.
Usage
data("Doyle_Green_1994")
Format
Data frame with 13 rows and 6 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Economy 15
Source
Doyle, J.; Green, R. (1994). “Efficiency and cross efficiency in DEA: derivations, meanings and the
uses”, Journal of Operational Research Society, 45(5), 567–578. doi:10.2307/2584392
See Also
make_deadata, model_multiplier, cross_efficiency
Examples
# Example.
data("Doyle_Green_1994")
data_example <- make_deadata(datadea = Doyle_Green_1994,
dmus = 1,
inputs = 6:7,
outputs = 2:5)
result <- cross_efficiency(data_example,
orientation = "io",
selfapp = TRUE)
result$Arbitrary$cross_eff
result$Arbitrary$e
# Aggressive using method II
result$M2_agg$cross_eff
# Aggressive using method III
result$M3_agg$cross_eff
Description
Data of the industrial economy of China in 2005-2009 (data in wide format).
Usage
data("Economy")
Format
Data frame with 31 rows and 16 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Wang, Y.; Lan, Y. (2011). "Measuring Malmquist Productiviy Index: A New Approach Based on
Double Frontiers Data Envelopment Analysis". Mathematical and Computer Modelling, 54, 2760-
2771. doi:10.1016/[Link].2011.06.064
See Also
make_malmquist, malmquist_index
Examples
# Example . Data in wide format.
# Replication of results in Wang and Lan (2011, p. 2768)
data("Economy")
data_example <- make_malmquist(Economy,
nper = 5,
arrangement = "horizontal",
ni = 2,
no = 1)
result <- malmquist_index(data_example)
Description
Data of the industrial economy of China in 2005-2009 (data in long format).
Usage
data("EconomyLong")
Format
Data frame with 155 rows and 5 columns. Definition of inputs (X) and outputs (Y):
x1 = Capital Total assets (in 100 million RMB)
x2 = Labor Annual average employed persons (in 10000 persons)
y1 = GIOV Gross industrial output value (in 100 million RMB)
efficiencies 17
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Wang, Y.; Lan, Y. (2011). "Measuring Malmquist Productiviy Index: A New Approach Based on
Double Frontiers Data Envelopment Analysis". Mathematical and Computer Modelling, 54, 2760-
2771. doi:10.1016/[Link].2011.06.064
See Also
make_malmquist, malmquist_index
Examples
# Example. Data in long format.
# Replication of results in Wang and Lan (2011, p. 2768)
data("EconomyLong")
data_example <- make_malmquist(EconomyLong,
percol = 2,
arrangement = "vertical",
ni = 2,
no = 1)
result <- malmquist_index(data_example)
Description
Extract the scores (optimal objective values) of the evaluated DMUs from a conventional, fuzzy or
stochastic DEA solution. Note that these scores may not always be interpreted as efficiencies.
Usage
efficiencies(x, ...)
Arguments
x An object of class dea, dea_fuzzy or dea_stoch.
... ignored.
18 [Link]
Description
Extract the scores (optimal objective values) of the evaluated DMUs from a conventional DEA
solution. Note that these scores may not always be interpreted as efficiencies.
Usage
## S3 method for class 'dea'
efficiencies(x, ...)
Arguments
x Object of class dea obtained with some of the conventional DEA model_* func-
tions.
... Other options (for compatibility reasons).
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Tomkins, C.; Green, R. (1988). “An Experiment in the Use of Data Envelopment Analysis for
Evaluating the Efficiency of UK University Departments of Accounting”. Financial Accountability
and Management 4(2): 147.
Examples
# Replication results model DEA1 in Tomkins and Green (1988)
data("Departments")
# Calculate Total income
Departments$Total_income <- Departments[, 5] + Departments[, 6] + Departments[, 7]
data_DEA1 <- make_deadata(Departments,
inputs = 9,
outputs = c(2, 3, 4, 12))
result <- model_basic(data_DEA1,
orientation = "io",
rts = "crs")
efficiencies(result) # Table 3 (p.156)
efficiencies.dea_fuzzy 19
efficiencies.dea_fuzzy
Efficiencies
Description
Extract the scores (optimal objective values) of the evaluated DMUs from a fuzzy DEA solution.
Note that these scores may not always be interpreted as efficiencies.
Usage
## S3 method for class 'dea_fuzzy'
efficiencies(x, ...)
Arguments
x Object of class dea_fuzzy obtained with some of the fuzzy DEA modelfuzzy_*
functions.
... Other options (for compatibility).
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Boscá, J.E.; Liern, V.; Sala, R.; Martínez, A. (2011). "Ranking Decision Making Units by Means
of Soft Computing DEA Models". International Journal of Uncertainty, Fuzziness and Knowledge-
Based Systems, 19(1), p.115-134.
Examples
# Replication of results in Boscá, Liern, Sala and Martínez (2011, p.125)
data("Leon2003")
data_example <- make_deadata_fuzzy(datadea = Leon2003,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
result <- modelfuzzy_kaoliu(data_example,
kaoliu_modelname = "basic",
alpha = seq(0, 1, by = 0.1),
orientation = "io",
20 eff_dmus
rts = "vrs")
efficiencies(result)
Description
Returns the efficient DMUs evaluated in a dea class object.
Usage
eff_dmus(deasol, tol = 1e-04)
Arguments
deasol An object of class "dea" obtained by a DEA model function.
tol Numeric. Absolute tolerance for numeric comparisons in efficiency scores. By
default, it is 1e-4.
Value
A numeric vector containing which DMUs has been evaluated as efficient. This vector is empty if
there is not any efficient DMU.
Note
If maxslack is FALSE, the slacks computed in the first stage are supposed to be the max slacks.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
dataFortune <- make_deadata(Fortune500,
ni = 3,
no = 2)
ccrFortune <- model_basic(dataFortune)
eff_dmus(ccrFortune)
Electric_plants 21
Description
Data of 19 coal-fired steam-electric generating plants operating in Illinois in 1978. Each plant uses
3 inputs to produce 1 output.
Usage
data("Electric_plants")
Format
Data frame with 18 rows and 5 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Source
Färe, R.; Grosskopf, S.; Kokkenlenberg, E. (1989). "Measuring Plant Capacity, Utilization and
Technical Change: A Nonparametric Approach". International Economic Review, 30(3), 655-666.
Simar, L.; Wilson, P.W. (1998). "Sensitivity Analysis of Efficiency Scores: How to Bootstrap in
Nonparametric Frontier Models". Management Science, 44(1), 49-61.
See Also
make_deadata, model_basic
22 extreme_efficient
Examples
# Example. Replication of results in Simar and Wilson (1998, p.59)
data("Electric_plants")
data_example <- make_deadata(Electric_plants,
dmus = 1,
ni = 3,
no = 1)
result <- model_basic(data_example,
orientation = "io",
rts = "vrs")
efficiencies(result)
Description
Find a set of extreme efficient DMUs from a deadata object.
Usage
extreme_efficient(datadea,
dmu_ref = NULL,
rts = c("crs", "vrs", "nirs", "ndrs"),
tol = 1e-6)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set, i.e.
the cluster of DMUs from which we want to find a extreme efficient DMUs
subset. If NULL (default), all DMUs are considered.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing) or "ndrs" (non-decreasing).
tol Numeric, a tolerance margin for checking efficiency. It is 1e-6 by default.
Value
A numeric vector representing a extreme efficient subset of DMUs.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Fortune500 23
References
Charnes, A.; Cooper, W.W.; Thrall, R.M. (1991) "A structure for classifying and characterizing effi-
ciency and inefficiency in data envelopment analysis", Journal of Productivity Analisys, 2, 197–237.
Examples
data("PFT1981")
datadea <- make_deadata(PFT1981,
ni = 5,
no = 3)
# We find a extreme efficient subset from a cluster formed by the first 20 DMUs
result <- extreme_efficient(datadea = datadea,
dmu_ref = 1:20)
Description
This dataset consists of 15 firms from the Fortune 500 list 1995 ([Link]
fortune500/) with 3 inputs and 2 outputs.
Usage
data("Fortune500")
Format
Data frame with 15 rows and 6 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
24 Fried1993
Source
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
See Also
make_deadata, model_multiplier
Examples
data("Fortune500")
data_Fortune <- make_deadata(datadea = Fortune500,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
result <- model_multiplier(data_Fortune,
epsilon = 1e-6,
orientation = "io",
rts = "crs")
# results for General Motors and Ford Motor are not shown
# by deaR because the solution is infeasible
efficiencies(result)
multipliers(result)
Description
Usage
data("Fried1993")
Format
Data frame with 11 rows and 4 columns. Definition of inputs (X) and outputs (Y):
x1 Input 1
x2 Input 2
y1 Output 1
FuzzyExample 25
Author(s)
Source
Ali, A.I.; Seiford, L.M. (1993). The Mathematical Programming Approach to Efficiency Analysis.
In Fried, H.O.; Knox Lovell, C.A.; Schmidt, S.S.(eds.), The Measurement of Productive Efficiency.
Techniques and Applications. New York: Oxford University Press.
See Also
make_deadata, model_basic
Examples
# Example. Replication of results in Ali and (1993, p.143).
data("Fried1993")
data_example <- make_deadata(Fried1993,
ni = 2,
no = 1)
result <- model_basic(data_example,
orientation = "oo",
rts = "vrs")
efficiencies(result)
targets(result)
Description
Synthetic dataset of 5 DMUs with 3 inputs and 3 outputs containing fuzzy and crisp data.
Usage
data("FuzzyExample")
26 FuzzyExample
Format
Data frame with 5 rows and 15 columns.
DMU DMU names
[Link] First Input (crisp numbers)
[Link] Second Input (left centers)
[Link] Second Input (right centers)
[Link] Second Input (left radii)
[Link] Second Input (right radii)
[Link] Third Input (centers)
[Link] Third Input (radii)
[Link] First Output (crisp numbers)
[Link] Second Output (left centers)
[Link] Second Output (right centers)
[Link] Second Output (radii)
[Link] Third Output (centers)
[Link] Third Output (left radii)
[Link] Third Output (right radii)
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
See Also
make_deadata_fuzzy
Examples
Description
Data of 13 DMUs using 3 inputs to produce 2 outputs.
Usage
data("Golany_Roll_1989")
Format
Data frame with 13 rows and 6 columns. Definition of inputs (X) and outputs (Y):
x1 Input 1
x2 Input 2
x3 Input 3
y1 Output 1
y1 Output 2
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Golany, B.; Roll, Y. (1989). "An Application Procedure for DEA". Omega, International Journal of
Management Science, 17(3), 237-250. doi:10.1016/03050483(89)900297
See Also
make_deadata, model_multiplier, cross_efficiency
Examples
# Example.
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
28 Grifell_Lovell_1999
Description
Data of 8 DMUs producing 1 output (Y) by using 1 input (X) for two periods of time.
Usage
data("Grifell_Lovell_1999")
Format
Data frame with 16 rows and 4 columns. Definition of inputs (X) and outputs (Y):
X Input
Y Output
Author(s)
Source
Grifell-Tatjé, E.; Lovel, C.A.K. (1999). "A Generalized Malmquist productivity index". Top, 7(1),
81-101.
See Also
make_malmquist, malmquist_index
Guo_Tanaka_2001 29
Examples
result_fgnz$mi
Description
Data of 5 DMUs with two symmetric triangular fuzzy inputs, Xj = (xj, alphaj), and two symmetric
triangular fuzzy outputs, Yj = (yj, betaj).
Usage
data("Guo_Tanaka_2001")
Format
Data frame with 5 rows and 9 columns. Definition of fuzzy inputs (X) and fuzzy outputs (Y):
x1 Input 1
x2 Input 2
alpha1 spread vector Input 1
alpha2 spread vector Input 2
y1 Output 1
y2 Output 2
beta1 spread vector Output 1
beta2 spread vector Output 2
30 Hotels
Author(s)
Source
Guo, P.; Tanaka, H. (2001). "Fuzzy DEA: A Perceptual Evaluation Method", Fuzzy Sets and Sys-
tems, 119, 149–160. doi:10.1016/S01650114(99)001062
See Also
Examples
data("Guo_Tanaka_2001")
data_example <- make_deadata_fuzzy(Guo_Tanaka_2001,
dmus = 1,
[Link] = 2:3,
[Link] = 4:5,
[Link] = 6:7,
[Link] = 8:9)
result <- modelfuzzy_guotanaka(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io")
efficiencies(result)
Description
This dataset consists of 23 four- and five-plum ITHs in Taipei in 2006. Authors consider 4 inputs
and 3 outputs.
Usage
data("Hotels")
Hotels 31
Format
Data frame with 23 rows and 8 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Source
Wu, J.; Tsai, H. and Zhou, Z. (2011). "Improving efficiency in International tourist hotels in Taipei
using a non-radial DEA mode", Internationl Journal of Contemporary Hospitality Management,
23(1), 66-83. doi:10.1108/09596111111101670
See Also
make_deadata, model_nonradial
Examples
# Example. Replication of results in Wu,Tsai and Zhou (2011)
data("Hotels")
data_hotels <- make_deadata(Hotels,
dmus = 1,
inputs = 2:5,
outputs = 6:8)
result <- model_nonradial(data_hotels,
orientation = "oo",
rts = "vrs")
efficiencies(result)
32 Hua_Bian_2007
Description
Data of 30 DMUs with two desirable inputs, two desirable outputs and one udesirable output.
Usage
data("Hua_Bian_2007")
Format
Data frame with 30 rows and 6 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Source
Hua Z.; Bian Y. (2007). DEA with Undesirable Factors. In: Zhu J., Cook W.D. (eds) Modeling
Data Irregularities and Structural Complexities in Data Envelopment Analysis. Springer, Boston,
MA. doi:10.1007/9780387716077_6
See Also
make_deadata, model_basic
[Link] 33
Examples
# Example. Replication of results in Hua and Bian (2007).
data("Hua_Bian_2007")
# The third output is an undesirable output
data_example <- make_deadata(Hua_Bian_2007,
ni = 2,
no = 3,
ud_outputs = 3)
Description
Checks whether an R object is of dea class or not.
Usage
[Link](x)
Arguments
x Any R object.
Value
Returns TRUE if its argument is a dea object (that is, has "dea" amongst its classes) and FALSE
otherwise.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
34 is.deadata_fuzzy
Description
Checks whether an R object is of deadata class or not.
Usage
[Link](x)
Arguments
x Any R object.
Value
Returns TRUE if its argument is a deadata object (that is, has "deadata" amongst its classes) and
FALSE otherwise.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Description
Checks whether an R object is of deadata_fuzzy class or not.
Usage
is.deadata_fuzzy(x)
Arguments
x Any R object.
is.dea_fuzzy 35
Value
Returns TRUE if its argument is a deadata_fuzzy object (that is, has "deadata_fuzzy" amongst its
classes) and FALSE otherwise.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Description
Checks whether an R object is of dea_fuzzy class or not.
Usage
is.dea_fuzzy(x)
Arguments
x Any R object.
Value
Returns TRUE if its argument is a dea_fuzzy object (that is, has "dea_fuzzy" amongst its classes) and
FALSE otherwise.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
36 [Link]
Description
Checks whether a subset of DMUs is friends or not, according to Tone (2010).
Usage
[Link](datadea,
dmu_eval = NULL,
dmu_ref = NULL,
rts = c("crs", "vrs", "nirs", "ndrs"),
tol = 1e-6)
Arguments
datadea The data, including n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing the subset of DMUs to be checked. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing) or "ndrs" (non-decreasing).
tol Numeric, a tolerance margin for checking efficiency. It is 1e-6 by default.
Value
Returns TRUE if dmu_eval is friends of dmu_ref, and FALSE otherwise.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Tone, K. (2010). "Variations on the theme of slacks-based measure of efficiency in DEA", European
Journal of Operational Research, 200, 901-907. doi:10.1016/[Link].2009.01.027
See Also
maximal_friends, model_sbmeff
Kao_Liu_2003 37
Examples
data("PFT1981")
datadea <- make_deadata(PFT1981,
ni = 5,
no = 3)
subset1 <- c(15, 16, 17, 19) # Subset of DMUs to be checked
result1 <- [Link](datadea = datadea,
dmu_eval = subset1,
dmu_ref = 1:20) # We only consider a cluster formed by the first 20 DMUs
subset2 <- c(15, 16, 17, 20) # Another subset of DMUs to be checked
result2 <- [Link](datadea = datadea,
dmu_eval = subset2,
dmu_ref = 1:20) # We only consider a cluster formed by the first 20 DMUs
Description
Data of 24 university libraries in Taiwan with one input and five outputs.
Usage
data("Kao_Liu_2003")
Format
Data frame with 24 rows and 11 columns. Definition of fuzzy inputs (X) and fuzzy outputs (Y):
x1 = Patronage It is a weighted sum of the standardized scores of faculty, graduate students, un-
dergraduate students, and extension students in the range of 0 and 1.
y1 = Collections Books, serials, microforms, audiovisual works, and database.
y2 = Personnel Classified staff, unclassified staff, and student assistants.
y3 = Expenditures Capital expenditure, operating expenditure, and special expenditure.
y4 = Buildings Area and seats
y5 = Services Operating hours, attendance, circulation, communication channels, range of ser-
vices, amount of services, etc.
beta3_l lower spread vector Expenditures
beta3_u upper spread vector Expenditures
beta5_l lower spread vector Services
beta5_u upper spread vector Services
38 lambdas
Note
There are three observations that are missing: expenditures of Library 24 and services of Library
22 and Library 23. Kao and Liu (2000b) represent the expenditures of Library 24 by the triangular
fuzzy number Y = (0.11; 0.41; 1.0). The services of Library 22 and Library 23 are expressed by a
same triangular fuzzy number Y = (0.41; 0.69; 1.0).
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Kao, C., Liu, S.T. (2003). “A mathematical programming approach to fuzzy efficiency ranking”,
International Journal of Production Economics, 85. doi:10.1016/S09255273(03)000264
See Also
make_deadata_fuzzy, model_basic
Examples
# Example. Replication of results in Kao and Liu (2003, p.152)
data_example <- make_deadata_fuzzy(Kao_Liu_2003,
dmus = 1,
[Link] = 2,
[Link] = 3:7,
[Link] = c(NA, NA, 8, NA, 10),
[Link] = c(NA, NA, 9, NA, 11))
result <- modelfuzzy_kaoliu(data_example,
kaoliu_modelname = "basic",
orientation = "oo",
rts = "vrs",
alpha = 0)
eff <- efficiencies(result)
eff
lambdas Lambdas
Description
Extract the lambdas of the DMUs from a dea or dea_fuzzy solution.
Leon2003 39
Usage
lambdas(deasol)
Arguments
deasol Object of class dea or dea_fuzzy obtained with some of the DEA model func-
tions.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_multiplier(data_example,
orientation = "io",
rts = "crs")
lambdas(result)
Description
Data of 8 DMUs with one symmetric triangular fuzzy inputs: Xj = (xj, alphaj), and one symmetric
triangular fuzzy outputs: Yj = (yj, betaj).
Usage
data("Leon2003")
Format
Data frame with 8 rows and 5 columns. Definition of fuzzy inputs (X) and fuzzy outputs (Y):
x1 Input 1
alpha1 spread vector Input 1
y1 Output 1
beta1 spread vector Output 1
40 Libraries
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Leon, T.; Liern, V. Ruiz, J.; Sirvent, I. (2003). "A Possibilistic Programming Approach to the
Assessment of Efficiency with DEA Models", Fuzzy Sets and Systems, 139, 407–419. doi:10.1016/
S01650114(02)006085
See Also
make_deadata_fuzzy, modelfuzzy_possibilistic, cross_efficiency_fuzzy, modelfuzzy_guotanaka
Examples
# Example. Replication of results in Leon et. al (2003, p. 416)
data("Leon2003")
data_example <- make_deadata_fuzzy(Leon2003,
dmus = 1,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
result <- modelfuzzy_possibilistic(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io",
rts = "vrs")
efficiencies(result)
Description
Data for 23 public libraries of the Tokyo Metropolitan Area in 1986.
Usage
data("Libraries")
Libraries 41
Format
Data frame with 23 rows and 7 columns. Definition of inputs (X) and outputs (Y):
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Cooper, W.W.; Seiford, L.M. and Tone, K. (2007). Data Envelopment Analysis. A Comprehensive
Text with Models, Applications, References and DEA-Solver Software. Springer.
See Also
make_deadata, model_basic
Examples
# Example 1. Non-controllable input (POPULATION).
# Replication of results in Cooper, Seiford and Tone (2007, p.221)
data(Libraries)
# POPULATION (non-controllable input) is the 4th input.
data_example <- make_deadata(Libraries,
dmus = 1,
inputs = 2:5,
nc_inputs = 4,
outputs = 6:7)
result <- model_basic(data_example,
orientation = "io",
rts = "crs")
efficiencies(result)
targets(result)
dmus=1,
inputs=2:5,
nd_inputs=4,
outputs=6:7)
result2 <- model_basic(data_example2,
orientation="io",
rts="crs")
efficiencies(result2)
targets(result2)
Description
Data of 37 R&D project proposal relating to the Turkish iron and steel industry. Authors consider
one input and five outputs.
Usage
data("Lim_Zhu_2015")
Format
Data frame with 37 rows and 7 columns. Definition of inputs (X) and outputs (Y):
x1 = Budget Budget
y1 = Indirect_economic Indirect economic contribution
y2 = Direct_economic Direct economic contribution
y3 = Technical Technical contribution
y4 = Social Social contribution
y5 = Scientific Scientific contribution
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Lim, S.; Zhu, J. (2015). "DEA Cross-Efficiency Under Variable Returns to Scale". Journal of
Operational Research Society, 66(3), p. 476-487. doi:10.1057/jors.2014.13
make_deadata 43
See Also
Examples
# Example. Arbitrary formulation.
# Input-oriented model under variable returns-to-scale.
data("Lim_Zhu_2015")
data_example <- make_deadata(Lim_Zhu_2015,
dmus = 1,
ni = 1,
no = 5)
cross <- cross_efficiency(data_example,
epsilon = 0,
orientation = "io",
rts = "vrs",
selfapp = TRUE,
M2 = FALSE,
M3 = FALSE)
cross$Arbitrary$e
make_deadata make_deadata
Description
This function creates, from a data frame, a deadata structure, which is as list with fields input,
output, dmunames, nc_inputs, nc_outputs, nd_inputs, nd_outputs.
Usage
make_deadata(datadea = NULL,
ni = NULL,
no = NULL,
dmus = 1,
inputs = NULL,
outputs = NULL,
nc_inputs = NULL,
nc_outputs = NULL,
nd_inputs = NULL,
nd_outputs = NULL,
ud_inputs = NULL,
ud_outputs = NULL)
44 make_deadata
Arguments
datadea Data frame with DEA data.
ni Number of inputs, if inputs are in columns 2:(ni + 1) (if DMUs are in the first
column) or 1:ni (no DMUs column).
no Number of outputs, if outputs are in columns (ni + 2):(ni + no + 1) (if DMUs are
in the first column) or (ni + 1):(ni + no) (no DMUs column). If not specified,
DMUs are in the first column.
dmus Column (number or name) of DMUs (optional). By default, it is the first column.
If there is not any DMU column, then it must be NULL.
inputs Columns (numbers or names) of inputs (optional). It prevails over ni. Alterna-
tively to datadea, it can be a matrix with the inputs (DMUs in columns). In this
case, DMUs names are taken from the columns names.
outputs Columns (numbers or names) of outputs (optional). It prevails over no. Alter-
natively to datadea, it can be a matrix with the outputs (DMUs in columns).
nc_inputs A numeric vector containing the indices of non-controllable inputs.
nc_outputs A numeric vector containing the indices of non-controllable outputs.
nd_inputs A numeric vector containing the indices of non-discretionary inputs.
nd_outputs A numeric vector containing the indices of non-discretionary outputs.
ud_inputs A numeric vector containing the indices of undesirable (good) inputs.
ud_outputs A numeric vector containing the indices of undesirable (bad) outputs.
Value
An object of class deadata
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(datadea = Coll_Blasco_2006,
ni = 2,
no = 2)
# This is the same as:
data_example <- make_deadata(Coll_Blasco_2006,
inputs = 2:3,
outputs = 4:5)
# And the same as:
dmunames <- c("A", "B", "C", "D", "E", "F")
make_deadata_fuzzy 45
make_deadata_fuzzy make_deadata_fuzzy
Description
This function creates, from a data frame, a deadata_fuzzy structure, which is as list with fields
input, output and dmunames. At the same time, input and output are lists with fields mL, mR, dL
and dR.
" alt" alt
Usage
make_deadata_fuzzy(datadea,
dmus = 1,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
46 make_deadata_fuzzy
[Link] = NULL,
[Link] = NULL,
nc_inputs = NULL,
nc_outputs = NULL,
nd_inputs = NULL,
nd_outputs = NULL,
ud_inputs = NULL,
ud_outputs = NULL)
Arguments
datadea Data frame with DEA data.
dmus Column (number or name) of DMUs (optional). By default, it is the first column.
If there is not any DMU column, then it must be NULL.
[Link] Where are (columns) the mL (left centers) of trapezoidal fuzzy inputs in datadea.
If an input is triangular or crisp, we put the column where the centers or the crisp
values are, respectively.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the mL of trapezoidal fuzzy inputs, the centers of tri-
angular inputs, and the crisp values of crisp inputs. In this case, DMUs names
are taken from the columns names.
[Link] Where are (columns) the mR (right centers) of trapezoidal fuzzy inputs in datadea.
If an input is triangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the mR of trapezoidal fuzzy inputs, the centers of tri-
angular inputs, and the crisp values of crisp inputs. If all inputs are triangular or
crisp, then [Link] must be NULL (default) or equal to [Link].
[Link] Where are (columns) the dL (left radii) of trapezoidal and triangular fuzzy inputs
in datadea. If an input is symmetric, we put the column where the radii are. If
an input is rectangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the dL of trapezoidal and triangular fuzzy inputs. If
an input is rectangular or crisp, its radius is zero. If all inputs are rectangular or
crisp, then [Link] must be NULL (default) or a zero matrix.
[Link] Where are (columns) the dR (right radii) of trapezoidal and triangular fuzzy in-
puts in datadea. If an input is symmetric, rectangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of in-
puts x number of DMUs) with the dR of trapezoidal and triangular fuzzy inputs.
If an input is rectangular or crisp, its radius is zero. If all inputs are symmet-
ric, rectangular or crisp, then [Link] must be NULL (default) or equal to
[Link].
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
make_malmquist 47
Value
Examples
# Example 1. If inputs and/or outputs are symmetric triangular fuzzy numbers
data("Leon2003")
data_example <- make_deadata_fuzzy(datadea = Leon2003,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
# Example 2. If inputs and/or outputs are non-symmetric triangular fuzzy numbers
data("Kao_Liu_2003")
data_example <- make_deadata_fuzzy(Kao_Liu_2003,
[Link] = 2,
[Link] = 3:7,
[Link] = c(NA, NA, 8, NA, 10),
[Link] = c(NA, NA, 9, NA, 11))
make_malmquist make_malmquist
Description
Usage
make_malmquist(datadea,
nper = NULL,
percol = NULL,
arrangement = c("horizontal", "vertical"),
...)
48 make_malmquist
Arguments
Value
Author(s)
Examples
Description
This function calculates the input/output oriented Malmquist productivity index under constant or
variable returns-to-scale.
Usage
malmquist_index(datadealist,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = c("io", "oo"),
rts = c("crs", "vrs"),
type1 = c("cont", "seq", "glob"),
type2 = c("fgnz", "rd", "gl", "bias"),
tc_vrs = FALSE,
vtrans_i = NULL,
vtrans_o = NULL)
Arguments
datadealist A list with the data (deadata objects) at different times, including DMUs, inputs
and outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation A string, equal to "io" (input oriented) or "oo" (output oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant) or
"vrs" (variable).
type1 A string, equal to "cont" (contemporary), "seq" (sequential) or "glob" (global).
type2 A string, equal to "fgnz" (Fare et al. 1994), "rd" (Ray and Desli 1997), "gl"
(generalized) or "bias" (biased).
tc_vrs Logical. If it is FALSE, it computes the vrs bias malmquist index by using the
technical change under crs (Fare and Grosskopf 1996). Otherwise, it uses the
technical change under vrs.
vtrans_i Numeric vector of translation for undesirable inputs in non-directional basic
models. If vtrans_i[i] is NA, then it applies the "max + 1" translation to the i-th
undesirable input. If vtrans_i is a constant, then it applies the same translation
to all undesirable inputs. If vtrans_i is NULL, then it applies the "max + 1"
translation to all undesirable inputs.
vtrans_o Numeric vector of translation for undesirable outputs in non-directional basic
models, analogous to vtrans_i, but applied to outputs.
50 malmquist_index
Value
Note
In the results: EC = Efficiency Change, PTEC = Pure Technical Efficiency Change, SEC = Scale
Efficiency Change, TC = Technological Change, MI = Malmquist Index
Author(s)
References
Caves, D.W.; Christensen, L. R.; Diewert, W.E. (1982). “The Economic Theory of Index Numbers
and the Measurement of Input, Output, and Productivity”. Econometrica, 50(6), 1393-1414.
Fare, R.; Grifell-Tatje, E.; Grosskopf, S.; Lovell, C.A.K. (1997). "Biased Technical Change and the
Malmquist Productivity Index". Scandinavian Journal of Economics, 99(1), 119-127.
Fare, R.; Grosskopf, S.; Lindgren, B.; Roos, P. (1989). “Productivity Developments in Swedish
Hospitals: A Malmquist Output Index Approach”. Discussion paper n. 89-3. Southern Illinois
University. Illinois.
Fare, R.; Grosskopf, S.; Lindgren, B.; Roos, P. (1992). “Productivity changes in Swedish Phar-
macies 1980-89: A nonparametric Malmquist Approach”. Journal of productivity Analysis, 3(3),
85-101.
Fare, R.; Grosskopf, S.; Norris, M.; Zhang, Z. (1994). “Productivity Growth, Technical Progress,
and Efficiency Change in Industrialized Countries”. American Economic Review, 84(1), 66-83.
Fare, R.; Grosskopf, S.; Roos, P. (1998), Malmquist Productivity Indexes: A Survey of Theory and
Practice. In: Fare R., Grosskopf S., Russell R.R. (eds) Index Numbers: Essays in Honour of Sten
Malmquist. Springer.
Grifell-Tatje, E.; Lovell, C.A.K. (1999). "A Generalized Malmquist productivity index". Top, 7(1),
81-101.
Pastor, J.T.; Lovell, C.A.k. (2005). "A global Malmquist productiviyt index". Economics Letters,
88, 266-271.
Ray, S.C.; Desli, E. (1997). "Productivity Growth, Technical Progress, and Efficiency Change in
Industrialized Countries: Comment". The American Economic Review, 87(5), 1033-1039.
Shestalova, V. (2003). "Sequential Malmquist Indices of Productivity Growth: An Application to
OECD Industrial Activities". Journal of Productivity Analysis, 19, 211-226.
malmquist_index 51
Examples
type1 = "cont",
type2 = "gl")
mi_gl <- result_gl$mi
Description
Finds the maximal friends subsets of a given set of DMUs, according to Tone (2010). It uses an
ascending algorithm in order to find directly maximal subsets.
Usage
maximal_friends(datadea,
dmu_ref = NULL,
rts = c("crs", "vrs", "nirs", "ndrs"),
tol = 1e-6,
silent = FALSE)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set, i.e.
the cluster of DMUs from which we want to find maximal friends. If NULL
(default), all DMUs are considered.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing) or "ndrs" (non-decreasing).
tol Numeric, a tolerance margin for checking efficiency. It is 1e-6 by default.
silent Logical, if FALSE (default) steps are printed.
Value
A list with numeric vectors representing maximal friends subsets of DMUs.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
modelfuzzy_guotanaka 53
References
Tone, K. (2010). "Variations on the theme of slacks-based measure of efficiency in DEA", European
Journal of Operational Research, 200, 901-907. doi:10.1016/[Link].2009.01.027
See Also
[Link], model_sbmeff
Examples
## Not run:
data("PFT1981")
datadea <- make_deadata(PFT1981,
ni = 5,
no = 3)
# We find maximal friends of a cluster formed by the first 20 DMUs
result <- maximal_friends(datadea = datadea,
dmu_ref = 1:20)
## End(Not run)
Description
Solve the Fuzzy input-oriented and output-oriented DEA model proposed by Guo and Tanaka
(2001) under constant returns to scale. In deaR is implemented the LP poblem given by the model
(16) in Guo and Tanaka (2001, p.155). The fuzzy efficiencies are calculated according to equations
in (17) (Guo and Tanaka, 2001, p.155). The (crisp) relative efficiencies and multipliers for the case
h = 1 are obtained from the CCR model (model_multiplier).
Usage
modelfuzzy_guotanaka(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = c("io", "oo"),
h = 1)
Arguments
datadea A deadata_fuzzy object, including DMUs, inputs and outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
54 modelfuzzy_guotanaka
Value
An object of class deadata_fuzzy.
Note
The optimal solution of model (16) is not unique.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Emrouznejad, A.; Tavana, M.; Hatami-Marbini, A. (2014). “The State of the Art in Fuzzy Data
Envelopment Analysis”, in A. Emrouznejad and M. Tavana (eds.), Performance Measurement with
Fuzzy Data Envelopment Analysis. Studies in Fuzziness and Soft Computing 309. Springer, Berlin.
doi:10.1007/9783642413728_1
Guo, P.; Tanaka, H. (2001). "Fuzzy DEA: A Perceptual Evaluation Method", Fuzzy Sets and Sys-
tems, 119, 149–160. doi:10.1016/S01650114(99)001062
Hatami-Marbini, A.; Emrouznejad, A.; Tavana, M. (2011). "A Taxonomy and Review of the Fuzzy
Data Envelopment Analysis Literature: Two Decades in the Making", European Journal of Opera-
tional Research, 214, 457–472. doi:10.1016/[Link].2011.02.001
See Also
model_basic, model_multiplier, modelfuzzy_kaoliu, modelfuzzy_possibilistic, cross_efficiency_fuzzy
Examples
# Example 1.
# Replication results in Guo and Tanaka (2001, p. 159).
# In deaR is implemented the LP poblem given by the model 16 in Guo and Tanaka (2001, p. 155).
# The fuzzy efficiencies are calculated according to equations in (17) (Guo and Tanaka, 2001,p.155).
data("Guo_Tanaka_2001")
data_example <- make_deadata_fuzzy(Guo_Tanaka_2001,
[Link] = 2:3,
[Link] = 4:5,
[Link] = 6:7,
[Link] = 8:9)
result <- modelfuzzy_guotanaka(data_example,
h = c(0, 0.5, 0.75, 1),
modelfuzzy_kaoliu 55
orientation = "io")
efficiencies(result)
# Example 2.
data("Guo_Tanaka_2001")
data_example <- make_deadata_fuzzy(Guo_Tanaka_2001,
[Link] = 2:3,
[Link] = 4:5,
[Link] = 6:7,
[Link] = 8:9)
result2 <- modelfuzzy_guotanaka(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io")
efficiencies(result2)
Description
Solve the fuzzy DEA model by Kao and Liu (2000)
Usage
modelfuzzy_kaoliu(datadea,
dmu_eval = NULL,
kaoliu_modelname = c("basic", "additive", "addsupereff",
"deaps", "fdh", "multiplier", "nonradial", "profit",
"rdm", "sbmeff", "sbmsupereff", "supereff"),
alpha = 1,
...)
Arguments
datadea A deadata_fuzzy object, including DMUs, inputs and outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
kaoliu_modelname
a string containing the name of the model.
alpha A numeric vector with the alpha-cuts (in [0,1]). If alpha>1, it determines the
number of alpha-cuts, equispatially distributed in [0,1].
... dmu_ref, orientation, rts and other model parameters.
Value
An object of class deadata_fuzzy.
56 modelfuzzy_kaoliu
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Boscá, J.E.; Liern, V.; Sala, R.; Martínez, A. (2011). "Ranking Decision Making Units by Means
of Soft Computing DEA Models". International Journal of Uncertainty, Fuzziness and Knowledge-
Based Systems, 19(1), p.115-134.
Emrouznejad, A.; Tavana, M.; Hatami-Marbini, A. (2014). “The State of the Art in Fuzzy Data
Envelopment Analysis”, in A. Emrouznejad and M. Tavana (eds.), Performance Measurement with
Fuzzy Data Envelopment Analysis. Studies in Fuzziness and Soft Computing 309. Springer, Berlin.
Hatami-Marbini, A.; Emrouznejad, A.; Tavana, M. (2011). "A Taxonomy and Review of the Fuzzy
Data Envelopment Analysis Literature: Two Decades in the Making", European Journal of Opera-
tional Research, 214, 457–472.
Kao, C.; Liu, S.T. (2000). “Fuzzy efficiency measures in data envelopment analysis, Fuzzy Sets and
Systems”, 119, 149–160.
Kao, C., Liu, S.T., (2000). “Data envelopment analysis with missing data: An application to uni-
versity libraries in Taiwan”, Journal of the Operational Research Society, 51, 897–905.
Kao, C., Liu, S.T. (2003). “A mathematical programming approach to fuzzy efficiency ranking”,
International Journal of Production Economics, 85.
See Also
model_basic, model_multiplier, modelfuzzy_possibilistic, modelfuzzy_guotanaka
Examples
# Example 1.
# Replication of results in Boscá, Liern, Sala and Martínez (2011, p.125)
data("Leon2003")
data_example <- make_deadata_fuzzy(datadea = Leon2003,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
result <- modelfuzzy_kaoliu(data_example,
kaoliu_modelname = "basic",
alpha = seq(0, 1, by = 0.1),
orientation = "io",
rts = "vrs")
efficiencies(result)
# Example 2.
modelfuzzy_possibilistic 57
modelfuzzy_possibilistic
Possibilistic Fuzzy DEA model.
Description
Solve the possibilistic fuzzy DEA model proposed by León et. al (2003).
Usage
modelfuzzy_possibilistic(datadea,
dmu_eval = NULL,
poss_modelname = c("basic"),
h = 1,
...)
Arguments
datadea A deadata_fuzzy object, including DMUs, inputs and outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
poss_modelname a string containing the name of the model.
h A numeric vector with the h-levels (in [0,1]).
... dmu_ref, orientation, rts and other model parameters.
Value
An object of class deadata_fuzzy.
58 model_additive
Author(s)
References
Emrouznejad, A.; Tavana, M.; Hatami-Marbini, A. (2014). “The State of the Art in Fuzzy Data
Envelopment Analysis”, in A. Emrouznejad and M. Tavana (eds.), Performance Measurement with
Fuzzy Data Envelopment Analysis. Studies in Fuzziness and Soft Computing 309. Springer, Berlin.
doi:10.1007/9783642413728_1
Hatami-Marbini, A.; Emrouznejad, A.; Tavana, M. (2011). "A Taxonomy and Review of the Fuzzy
Data Envelopment Analysis Literature: Two Decades in the Making", European Journal of Opera-
tional Research, 214, 457–472. doi:10.1016/[Link].2011.02.001
Leon, T.; Liern, V. Ruiz, J.; Sirvent, I. (2003). "A Possibilistic Programming Approach to the
Assessment of Efficiency with DEA Models", Fuzzy Sets and Systems, 139, 407–419. doi:10.1016/
S01650114(02)006085
See Also
Examples
# Replication of results in Leon et. al (2003, p. 416)
data("Leon2003")
data_example <- make_deadata_fuzzy(Leon2003,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
result <- modelfuzzy_possibilistic(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io",
rts = "vrs")
efficiencies(result)
Description
Solve the additive model of Charnes et. al (1985). With the current version of deaR, it is possible
to solve input-oriented, output-oriented, and non-oriented additive model under constant and non-
constant returns to scale.
Besides, the user can set weights for the input slacks and/or output slacks. So, it is also possible to
solve weighted additive models. For example: Measure of Inefficiency Proportions (MIP), Range
Adjusted Measure (RAM), etc.
Usage
model_additive(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = NULL,
weight_slack_i = 1,
weight_slack_o = 1,
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
compute_target = TRUE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation This parameter is either NULL (default) or a string, equal to "io" (input-oriented)
or "oo" (output-oriented). It is used to modify the weight slacks. If input-
oriented, weight_slack_o are taken 0. If output-oriented, weight_slack_i
are taken 0.
weight_slack_i A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with the weights of the input slacks. If 0, output-oriented.
weight_slack_o A value, vector of length s, or matrix s x ne (where ne is the length of dmu_eval)
with the weights of the output slacks. If 0, input-oriented.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
compute_target Logical. If it is TRUE, it computes targets.
60 model_additive
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints).
... Ignored, for compatibility issues.
Note
In this model, the efficiency score is the sum of the slacks. Therefore, a DMU is efficient when the
objective value (objval) is zero.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Charnes, A.; Cooper, W.W.; Golany, B.; Seiford, L.; Stuz, J. (1985) "Foundations of Data En-
velopment Analysis for Pareto-Koopmans Efficient Empirical Production Functions", Journal of
Econometrics, 30(1-2), 91-107. doi:10.1016/03044076(85)901332
Charnes, A.; Cooper, W.W.; Lewin, A.Y.; Seiford, L.M. (1994). Data Envelopment Analysis: The-
ory, Methology, and Application. Boston: Kluwer Academic Publishers. doi:10.1007/97894011-
06375
Cooper, W.W.; Park, K.S.; Pastor, J.T. (1999). "RAM: A Range Adjusted Measure of Inefficiencies
for Use with Additive Models, and Relations to Other Models and Measures in DEA". Journal of
Productivity Analysis, 11, p. 5-42. doi:10.1023/A:1007701304281
See Also
model_addsupereff
Examples
# Example 1.
# Replication of results in Charnes et. al (1994, p. 27)
x <- c(2, 3, 6, 9, 5, 4, 10)
y <- c(2, 5, 7, 8, 3, 1, 7)
data_example <- [Link](dmus = letters[1:7], x, y)
data_example <- make_deadata(data_example,
ni = 1,
no = 1)
result <- model_additive(data_example,
rts = "vrs")
efficiencies(result)
slacks(result)
lambdas(result)
model_addmin 61
# Example 2.
# Measure of Inefficiency Proportions (MIP).
x <- c(2, 3, 6, 9, 5, 4, 10)
y <- c(2, 5, 7, 8, 3, 1, 7)
data_example <- [Link](dmus = letters[1:7], x, y)
data_example <- make_deadata(data_example,
ni = 1,
no = 1)
result2 <- model_additive(data_example,
rts = "vrs",
weight_slack_i = 1 / data_example[["input"]],
weight_slack_o = 1 / data_example[["output"]])
slacks(result2)
# Example 3.
# Range Adjusted Measure of Inefficiencies (RAM).
x <- c(2, 3, 6, 9, 5, 4, 10)
y <- c(2, 5, 7, 8, 3, 1, 7)
data_example <- [Link](dmus = letters[1:7], x, y)
data_example <- make_deadata(data_example,
ni = 1,
no = 1)
range_i <- apply(data_example[["input"]], 1, max) -
apply(data_example[["input"]], 1, min)
range_o <- apply(data_example[["output"]], 1, max) -
apply(data_example[["output"]], 1, min)
w_range_i <- 1 / (range_i * (dim(data_example[["input"]])[1] +
dim(data_example[["output"]])[1]))
w_range_o <- 1 / (range_o * (dim(data_example[["input"]])[1] +
dim(data_example[["output"]])[1]))
result3 <- model_additive(data_example,
rts = "vrs",
weight_slack_i = w_range_i,
weight_slack_o = w_range_o)
slacks(result3)
Description
Solve the weighted version of the additive-min (mADD) model of Aparicio et. al (2007) with
different returns to scale. For non constant returns to scale, a modification given by Zhu et al.
(2018) is done.
Usage
model_addmin(datadea,
dmu_eval = NULL,
62 model_addmin
dmu_ref = NULL,
orientation = NULL,
weight_slack_i = 1,
weight_slack_o = 1,
rts = c("crs", "vrs", "nirs", "ndrs"),
method = c("mf", "milp"),
extreff = NULL,
M_d = NULL,
M_lambda = 1e3,
maxfr = NULL,
tol = 1e-6,
silent = TRUE,
compute_target = TRUE,
check_target = FALSE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation This parameter is either NULL (default) or a string, equal to "io" (input-oriented)
or "oo" (output-oriented). It is used to modify the weight slacks. If input-
oriented, weight_slack_o are taken 0. If output-oriented, weight_slack_i
are taken 0.
weight_slack_i A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with the weights of the input slacks. If 0, output-oriented.
weight_slack_o A value, vector of length s, or matrix s x ne (where ne is the length of dmu_eval)
with the weights of the output slacks. If 0, input-oriented.
rts A string, determining the type of returns to scale, equal to "crs" (constant),
"vrs" (variable), "nirs" (non-increasing) or "ndrs" (non-decreasing). Under non-
increasing or non-decreasing returns to scale, you may set check_target =
TRUE because methods are not reliable. Generalized returns to scale are not
available.
method A string with the method: "mf" (default) for maximal friends, or "milp" for the
mixed integer linear program of Aparicio et al. (2007). MILP method is faster
but very problematic numerically.
extreff A vector with the extreme efficient DMUs for "milp" method, as it is returned
by function extreme_efficient. If NULL (default) this vector is computed in-
ternally.
M_d Numeric, a big positive quantity for "milp" method. It is an upper bound for
auxiliary variables named "d" in Aparicio (2007). If NULL (default), it is esti-
mated automatically. A very big value can produce catastrophic cancellations.
If the results are not correct or the solver hangs, try to change its value.
model_addmin 63
M_lambda Numeric, a big positive quantity for "milp" method. It is an upper bound for
lambda variables. A very big value can produce catastrophic cancellations. If
the results are not correct or the solver hangs, try to change its value (1e3 by
default).
maxfr A list with the maximal friends sets for "mf" method, as it is returned by function
maximal_friends. If NULL (default) this list is computed internally.
tol Numeric, a tolerance margin for checking efficiency in extreme_efficient or
maximal_friends functions, and for checking targets.
silent Logical. If FALSE, it prints all the messages from function maximal_friends.
compute_target Logical. If it is TRUE (default), it computes targets.
check_target Logical. If it is TRUE, it checks the efficiency of targets. If a target is not efficient,
the method has failed.
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints).
... For compatibility issues.
Note
In this model, the efficiency score is the sum of the slacks. Therefore, a DMU is efficient when the
objective value (objval) is zero.
Author(s)
References
Aparicio, J.; Ruiz, J.L.; Sirvent, I. (2007) "Closest targets and minimum distance to the Pareto-
efficient frontier in DEA", Journal of Productivity Analysis, 28, 209-218. doi:10.1007/s11123007-
00395
Zhu, Q.; Wu, J.; Ji, X.; Li, F. (2018) "A simple MILP to determine closest targets in non-oriented
DEA model satisfying strong monotonicity", Omega, 79, 1-8. doi:10.1016/[Link].2017.07.003
See Also
Examples
# Example 1.
data("Airlines")
datadea <- make_deadata(Airlines,
inputs = 4:7,
outputs = 2:3)
result <- model_addmin(datadea = datadea,
method = "milp")
targets(result)
## Not run:
# Example 2. Directional model with Additive-min model in second stage
data("Airlines")
datadea <- make_deadata(Airlines,
inputs = 4:7,
outputs = 2:3)
resdir <- model_basic(datadea = datadea,
orientation = "dir",
maxslack = FALSE)
proj_input <- targets(resdir)[[1]] + slacks(resdir)[[1]]
proj_output <- targets(resdir)[[2]] - slacks(resdir)[[2]]
nd <- ncol(datadea$dmunames) # Number of DMUs
maxfr <- maximal_friends(datadea = datadea)
for (i in 1:nd) {
datadea2 <- datadea
datadea2$input[, i] <- proj_input[i, ]
datadea2$output[, i] <- proj_output[i, ]
DMUaux <- model_addmin(datadea = datadea2,
method = "mf",
maxfr = maxfr,
dmu_eval = i)$DMU[[1]]
resdir$DMU[[i]]$slack_input <- DMUaux$slack_input
resdir$DMU[[i]]$slack_output <- DMUaux$slack_output
resdir$DMU[[i]]$target_input <- DMUaux$target_input
resdir$DMU[[i]]$target_output <- DMUaux$target_output
}
targets(resdir)
## End(Not run)
Description
Solve the additive super-efficiency model proposed by Du, Liang and Zhu (2010). It is an extension
of the SBM super-efficiency to the additive DEA model.
model_addsupereff 65
Usage
model_addsupereff(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = NULL,
weight_slack_i = NULL,
weight_slack_o = NULL,
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
compute_target = TRUE,
returnlp = FALSE,
...)
Arguments
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Du, J.; Liang, L.; Zhu, J. (2010). "A Slacks-based Measure of Super-efficiency in Data Envelopment
Analysis. A Comment", European Journal of Operational Research, 204, 694-697. doi:10.1016/
[Link].2009.12.007
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
See Also
model_additive, model_supereff, model_sbmsupereff
Examples
# Replication of results in Du, Liang and Zhu (2010, Table 6, p.696)
data("Power_plants")
Power_plants <- make_deadata(Power_plants,
ni = 4,
no = 2)
result <- model_addsupereff(Power_plants,
rts = "crs")
efficiencies(result)
Description
It solves input and output oriented, along with directional, basic DEA models (envelopment form)
under constant (CCR model), variable (BCC model), non-increasing, non-decreasing or generalized
returns to scale. By default, models are solved in a two-stage process (slacks are maximized).
You can use the model_basic function to solve directional DEA models by choosing orientation
= "dir".
The model_basic function allows to treat with non-discretional, non-controllable and undesirable
inputs/outputs.
model_basic 67
Usage
model_basic(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = c("io", "oo", "dir"),
dir_input = NULL,
dir_output = NULL,
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
maxslack = TRUE,
weight_slack_i = 1,
weight_slack_o = 1,
vtrans_i = NULL,
vtrans_o = NULL,
compute_target = TRUE,
compute_multiplier = FALSE,
returnlp = FALSE,
silent_ud = FALSE,
...)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation A string, equal to "io" (input oriented), "oo" (output oriented), or "dir" (direc-
tional).
dir_input A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with the input directions. If dir_input == input matrix (of DMUS in dmu_eval)
and dir_output == 0, it is equivalent to input oriented (beta = 1 - efficiency).
If dir_input is omitted, input matrix (of DMUS in dmu_eval) is assigned.
dir_output A value, vector of length s, or matrix s x ne (where ne is the length of dmu_eval)
with the output directions. If dir_input == 0 and dir_output == output matrix
(of DMUS in dmu_eval), it is equivalent to output oriented (beta = efficiency
- 1). If dir_output is omitted, output matrix (of DMUS in dmu_eval) is as-
signed.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
maxslack Logical. If it is TRUE, it computes the max slack solution.
68 model_basic
Note
(1) Model proposed by Seiford and Zhu (2002) is applied for undesirable inputs/outputs and non-
directional orientation (i.e., input or output oriented). You should select "vrs" returns to scale (BCC
model) in order to maintain translation invariance. If deaR detects that you are not specifying rts
= "vrs", it makes the change to "vrs" automatically.
(2) With undesirable inputs and non-directional orientation use input-oriented BCC model, and with
undesirable outputs and non-directional orientation use output-oriented BCC model. Alternatively,
you can also treat the undesirable outputs as inputs and then apply the input-oriented BCC model
(similarly with undesirable inputs).
(3) Model proposed by Fare and Grosskopf (2004) is applied for undesirable inputs/outputs and
directional orientation.
(4) With orientation = "dir" (directional distance function model), efficient DMUs are those for
which beta = 0.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
model_basic 69
References
Charnes, A.; Cooper, W.W.; Rhodes, E. (1978). “Measuring the efficiency of decision making
units”, European Journal of Operational Research 2, 429–444.
Charnes, A.; Cooper, W.W.; Rhodes, E. (1979). “Short communication: Measuring the efficiency
of decision making units”, European Journal of Operational Research 3, 339.
Charnes, A.; Cooper, W.W.; Rhodes, E. (1981). "Evaluating Program and Managerial Efficiency:
An Application of Data Envelopment Analysis to Program Follow Through", Management Science,
27(6), 668-697.
Banker, R.; Charnes, A.; Cooper, W.W. (1984). “Some Models for Estimating Technical and Scale
Inefficiencies in Data Envelopment Analysis”, Management Science; 30; 1078-1092.
Undesirable inputs/outputs:
Pastor, J.T. (1996). "Translation Invariance in Data Envelopment Analysis: a Generalization", An-
nals of Operations Research, 66(2), 91-102.
Seiford, L.M.; Zhu, J. (2002). “Modeling undesirable factors in efficiency evaluation”, European
Journal of Operational Research 142, 16-20.
Färe, R. ; Grosskopf, S. (2004). “Modeling undesirable factors in efficiency evaluation: Comment”,
European Journal of Operational Research 157, 242-245.
Hua Z.; Bian Y. (2007). DEA with Undesirable Factors. In: Zhu J., Cook W.D. (eds) Modeling
Data Irregularities and Structural Complexities in Data Envelopment Analysis. Springer, Boston,
MA.
Non-discretionary/Non-controllable inputs/outputs:
Banker, R.; Morey, R. (1986). “Efficiency Analysis for Exogenously Fixed Inputs and Outputs”,
Operations Research; 34; 513-521.
Ruggiero J. (2007). Non-Discretionary Inputs. In: Zhu J., Cook W.D. (eds) Modeling Data Irregu-
larities and Structural Complexities in Data Envelopment Analysis. Springer, Boston, MA.
Directional DEA model:
Chambers, R.G.; Chung, Y.; Färe, R. (1996). "Benefit and Distance Functions", Journal of Eco-
nomic Theory, 70(2), 407-419.
Chambers, R.G.; Chung, Y.; Färe, R. (1998). "Profit Directional Distance Functions and Nerlovian
Efficiency", Journal of Optimization Theory and Applications, 95, 351-354.
See Also
model_multiplier, model_supereff
Examples
# Example 1. Basic DEA model with desirable inputs/outputs.
# Replication of results in Charnes, Cooper and Rhodes (1981).
data("PFT1981")
# Selecting DMUs in Program Follow Through (PFT)
PFT <- PFT1981[1:49, ]
PFT <- make_deadata(PFT,
inputs = 2:6,
70 model_deaps
outputs = 7:9 )
eval_pft <- model_basic(PFT,
orientation = "io",
rts = "crs")
eff <- efficiencies(eval_pft)
s <- slacks(eval_pft)
lamb <- lambdas(eval_pft)
tar <- targets(eval_pft)
ref <- references(eval_pft)
returns <- rts(eval_pft)
Description
With this non-radial DEA model (Zhu, 1996), the user can specify the preference input (or output)
weigths that reflect the relative degree of desirability of the adjustments of the current input (or
output) levels.
model_deaps 71
Usage
model_deaps(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
weight_eff = 1,
orientation = c("io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
restricted_eff = TRUE,
maxslack = TRUE,
weight_slack = 1,
compute_target = TRUE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object, including n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
weight_eff Preference weights. If input-oriented, it is a value, vector of length m, or matrix
m x ne (where ne is the lenght of dmu_eval) with the weights applied to the input
efficiencies. If output-oriented, it is a value, vector of length s, or matrix s x ne
with the weights applied to the output efficiencies.
orientation A string, equal to "io" (input-oriented) or "oo" (output-oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
restricted_eff Logical. If it is TRUE, the efficiencies are restricted to be <=1 (input-oriented) or
>=1 (output-oriented).
maxslack Logical. If it is TRUE, it computes the max slack solution.
weight_slack If input-oriented, it is a value, vector of length s, or matrix s x ne with the
weights of the output slacks for the max slack solution. If output-oriented, it is
a value, vector of length m, or matrix m x ne with the weights of the input slacks
for the max slack solution.
compute_target Logical. If it is TRUE, it computes targets of the max slack solution.
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints) of stage 1.
... Ignored, for compatibility issues.
72 model_fdh
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Zhu, J. (1996). “Data Envelopment Analysis with Preference Structure”, The Journal of the Opera-
tional Research Society, 47(1), 136. doi:10.2307/2584258
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
See Also
model_nonradial, model_profit, model_sbmeff
Examples
data("Fortune500")
data_deaps <- make_deadata(datadea = Fortune500,
ni = 3,
no = 2)
result <- model_deaps(data_deaps,
weight_eff = c(1, 2, 3),
orientation = "io",
rts = "vrs")
efficiencies(result)
Description
FDH model allows the free disposability to construct the production possibility set. The central
feature of the FDH model is the lack of convexity for its production possibility set (Thrall, 1999).
Usage
model_fdh(datadea,
fdh_modelname = c("basic"),
...)
model_fdh 73
Arguments
datadea A deadata object, including DMUs, inputs and outputs.
fdh_modelname A string containing the name of the model to apply FDH. For now, only "basic"
is available.
... dmu_eval, dmu_ref, orientation and other model parameters. Parameters like
rts, max_slack and returnlp are ignored.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Cherchye, L.; Kuosmanen, T.; Post, T. (2000). "What Is the Economic Meaning of FDH? A Reply
to Thrall". Journal of Productivity Analysis, 13(3), 263–267.
Deprins, D.; Simar, L. and Tulkens, H. (1984). Measuring Labor-Efficiency in Post Offices. In M.
Marchand, P. Pestieau and H. Tulkens (eds.), The Performance of Public Entreprises: Concepts and
Measurement. Amsterdam: North-Holland.
Sanei, M.; Mamizadeh Chatghayeb, S. (2013). “Free Disposal Hull Models in Supply Chain Man-
agement”, International Journal of Mathematical Modelling and Computations, 3(3), 125-129.
Thrall, R. M. (1999). "What Is the Economic Meaning of FDH?", Journal of Productivity Analysis,
11(3), 243–50.
Examples
# Example 1. FDH input-oriented.
# Replication of results in Sanei and Mamizadeh Chatghayeb (2013)
data("Supply_Chain")
data_fdh1 <- make_deadata(Supply_Chain,
inputs = 2:4,
outputs = 5:6)
result <- model_fdh(data_fdh1) # by default orientation = "io"
efficiencies(result)
Description
Solve input-oriented and output-oriented basic DEA models (multiplicative form) under constant
(CCR DEA model), variable (BCC DEA model), non-increasing, non-decreasing or generalized
returns to scale. It does not take into account non-controllable, non-discretionary or undesirable
inputs/outputs.
Usage
model_multiplier(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
epsilon = 0,
orientation = c("io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
returnlp = FALSE,
compute_lambda = TRUE,
...)
Arguments
datadea A deadata object, including DMUs, inputs and outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
epsilon Numeric, multipliers must be >= epsilon.
orientation A string, equal to "io" (input-oriented) or "oo" (output-oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints).
compute_lambda Logical. If it is TRUE, it computes the dual problem and lambdas.
... Ignored, for compatibility issues.
model_multiplier 75
Note
(1) Very important with the multiplier model: "The optimal weights for an efficient DMU need
not be unique" (Cooper, Seiford and Tone, 2007:31). "Usually, the optimal weights for inefficient
DMUs are unique, the exception being when the line of the DMU is parallel to one of the boundaries
of the feasible region" (Cooper, Seiford and Tone, 2007:32).
(2) The measure of technical input (or output) efficiency obtained by using multiplier DEA models
is better the smaller the value of epsilon.
(3) Epsilon is usually set equal to 10^-6. However, if epsilon is not set correctly, the multiplier
model can be infeasible (Zhu,2014:49).
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Charnes, A.; Cooper, W.W. (1962). “Programming with Linear Fractional Functionals”, Naval
Research Logistics Quarterly 9, 181-185. doi:10.1002/nav.3800090303
Charnes, A.; Cooper, W.W.; Rhodes, E. (1978). “Measuring the Efficiency of Decision Making
Units”, European Journal of Operational Research 2, 429–444. doi:10.1016/03772217(78)901388
Charnes, A.; Cooper, W.W.; Rhodes, E. (1979). “Short Communication: Measuring the Efficiency
of Decision Making Units”, European Journal of Operational Research 3, 339. doi:10.1016/0377-
2217(79)902297
Golany, B.; Roll, Y. (1989). "An Application Procedure for DEA", OMEGA International Journal
of Management Science, 17(3), 237-250. doi:10.1016/03050483(89)900297
Seiford, L.M.; Thrall, R.M. (1990). “Recent Developments in DEA. The Mathematical Program-
ming Approach to Frontier Analysis”, Journal of Econometrics 46, 7-38. doi:10.1016/03044076(90)90045-
U
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
See Also
model_basic, cross_efficiency
Examples
# Example 1.
# Replication of results in Golany and Roll (1989).
data("Golany_Roll_1989")
data_example <- make_deadata(datadea = Golany_Roll_1989[1:10, ],
inputs = 2:4,
76 model_nonradial
outputs = 5:6)
result <- model_multiplier(data_example,
epsilon = 0,
orientation = "io",
rts = "crs")
efficiencies(result)
multipliers(result)
# Example 2.
# Multiplier model with infeasible solutions (See note).
data("Fortune500")
data_Fortune <- make_deadata(datadea = Fortune500,
inputs = 2:4,
outputs = 5:6)
result2 <- model_multiplier(data_Fortune,
epsilon = 1e-6,
orientation = "io",
rts = "crs")
# Results for General Motors and Ford Motor are not shown by deaR
# because the solution is infeasible.
efficiencies(result2)
multipliers(result2)
Description
Non-radial DEA model allows for non-proportional reductions in each input or augmentations in
each output.
Usage
model_nonradial(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = c("io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
maxslack = TRUE,
weight_slack = 1,
compute_target = TRUE,
returnlp = FALSE,
...)
model_nonradial 77
Arguments
datadea A deadata object, including n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation A string, equal to "io" (input-oriented) or "oo" (output-oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
maxslack Logical. If it is TRUE, it computes the max slack solution.
weight_slack If input-oriented, it is a value, vector of length s, or matrix s x ne (where ne is
the length of dmu_eval) with the weights of the output slacks for the max slack
solution. If output-oriented, it is a value, vector of length m, or matrix m x ne
with the weights of the input slacks for the max slack solution.
compute_target Logical. If it is TRUE, it computes targets of the max slack solution.
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints) of stage 1.
... Ignored, for compatibility issues.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Banker, R.D.; Morey, R.C. (1986). "Efficiency Analysis for Exogenously Fixed Inputs and Out-
puts", Operations Research, 34, 80-97. doi:10.1287/opre.34.4.513
Färe, R.; Lovell, C.K. (1978). "Measuring the Technical Efficiency of Production", Journal of
Economic Theory, 19(1), 150-162. doi:10.1016/00220531(78)900601
Wu, J.; Tsai, H.; Zhou, Z. (2011). "Improving Efficiency in International Tourist Hotels in Taipei
Using a Non-Radial DEA Model", International Journal of Contemporary Hospitatlity Manage-
ment, 23(1), 66-83. doi:10.1108/09596111111101670
Zhu, J. (1996). “Data Envelopment Analysis with Preference Structure”, The Journal of the Opera-
tional Research Society, 47(1), 136. doi:10.2307/2584258
78 model_profit
See Also
model_deaps, model_profit, model_sbmeff
Examples
# Replication of results in Wu, Tsai and Zhou (2011)
data("Hotels")
data_hotels <- make_deadata(Hotels,
inputs = 2:5,
outputs = 6:8)
result <- model_nonradial(data_hotels,
orientation = "oo",
rts = "vrs")
efficiencies(result)
Description
Cost, revenue and profit efficiency DEA models.
Usage
model_profit(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
price_input = NULL,
price_output = NULL,
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
restricted_optimal = TRUE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object, including n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
price_input Unit prices of inputs for cost or profit efficiency models. It is a value, vector of
length m, or matrix m x ne (where ne is the length of dmu_eval).
model_profit 79
price_output Unit prices of outputs for revenue or profit efficiency models. It is a value, vector
of length s, or matrix s x ne.
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
restricted_optimal
Logical. If it is TRUE, the optimal inputs are restricted to be <= inputs (for cost
efficiency models) or the optimal outputs are restricted to be >= outputs (for
revenue efficiency models).
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints) of stage 1.
... Ignored, for compatibility issues.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Coelli, T.; Prasada Rao, D.S.; Battese, G.E. (1998). An introduction to efficiency and productivity
analysis. Jossey-Bass, San Francisco, pp 73–104. doi:10.1002/ev.1441
See Also
model_deaps, model_nonradial, model_sbmeff
Examples
# Example 1. Replication of results in Coelli et al. (1998, p.166).
# Cost efficiency model.
data("Coelli_1998")
# Selection of prices: input_prices is the transpose where the prices for inputs are.
input_prices <- t(Coelli_1998[, 5:6])
efficiencies(result1)
Description
Range directional model from Portela et al. (2004).
Usage
model_rdm(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
orientation = c("no", "io", "oo"),
irdm = FALSE,
maxslack = TRUE,
weight_slack_i = 1,
model_rdm 81
weight_slack_o = 1,
compute_target = TRUE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object, including n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
orientation A string, equal to "no" (non-oriented), "io" (input oriented), or "oo" (output
oriented).
irdm Logical. If it is TRUE, it applies the IRDM (inverse range directional model).
maxslack Logical. If it is TRUE, it computes the max slack solution.
weight_slack_i A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with the weights of the input slacks for the max slack solution.
weight_slack_o A value, vector of length s, or matrix s x ne (where ne is the length of dmu_eval)
with the weights of the output slacks for the max slack solution.
compute_target Logical. If it is TRUE, it computes targets of the max slack solution.
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints) of stage 1.
... Ignored, for compatibility issues.
Note
Undesirable inputs/outputs are treated as negative inputs/outputs in this model.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Portela, M.; Thanassoulis, E.; Simpson, G. (2004). "Negative data in DEA: a directional distance
approach applied to bank branches", Journal of the Operational Research Society, 55 1111-1121.
82 model_sbmeff
Description
Calculate the SBM model proposed by Tone (2001).
Usage
model_sbmeff(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
weight_input = 1,
weight_output = 1,
orientation = c("no", "io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
kaizen = FALSE,
maxfr = NULL,
tol = 1e-6,
silent = FALSE,
compute_target = TRUE,
returnlp = FALSE,
...)
Arguments
datadea A deadata object with n DMUs, m inputs and s outputs.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
weight_input A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with weights to inputs corresponding to the relative importance of items.
weight_output A value, vector of length m, or matrix m x ne (where ne is the length of dmu_eval)
with weights to outputs corresponding to the relative importance of items.
orientation A string, equal to "no" (non-oriented), "io" (input-oriented) or "oo" (output-
oriented).
rts A string, determining the type of returns to scale, equal to "crs" (constant), "vrs"
(variable), "nirs" (non-increasing), "ndrs" (non-decreasing) or "grs" (general-
ized).
L Lower bound for the generalized returns to scale (grs).
U Upper bound for the generalized returns to scale (grs).
model_sbmeff 83
kaizen Logical. If TRUE, the kaizen version of SBM (Tone 2010), also known as SBM-
Max, is computed.
maxfr A list with the maximal friends sets, as it is returned by function maximal_friends.
If NULL (default) this list is computed internally.
tol Numeric, a tolerance margin for checking efficiency (only for the kaizen ver-
sion).
silent Logical. If FALSE (default) it prints all the messages from function maximal_friends.
compute_target Logical. If it is TRUE, it computes targets.
returnlp Logical. If it is TRUE, it returns the linear problems (objective function and
constraints). If kaizen is TRUE it is ignored.
... Other options (currently not implemented)
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Tone, K. (2001). "A Slacks-Based Measure of Efficiency in Data Envelopment Analysis", European
Journal of Operational Research, 130, 498-509. doi:10.1016/S03772217(99)004075
Tone, K. (2010). "Variations on the theme of slacks-based measure of efficiency in DEA", European
Journal of Operational Research, 200, 901-907. doi:10.1016/[Link].2009.01.027
Cooper, W.W.; Seiford, L.M.; Tone, K. (2007). Data Envelopment Analysis. A Comprehensive
Text with Models, Applications, References and DEA-Solver Software. 2nd Edition. Springer,
New York. doi:10.1007/9780387452838
Aparicio, J.; Ruiz, J.L.; Sirvent, I. (2007) "Closest targets and minimum distance to the Pareto-
efficient frontier in DEA", Journal of Productivity Analysis, 28, 209-218. doi:10.1007/s11123007-
00395
See Also
model_nonradial, model_deaps, model_profit, model_sbmsupereff
Examples
# Example 1. Replication of results in Tone (2001, p.505)
data("Tone2001")
data_example <- make_deadata(Tone2001,
ni = 2,
no = 2)
result_SBM <- model_sbmeff(data_example,
orientation = "no",
84 model_sbmsupereff
rts = "crs")
result_CCR <- model_basic(data_example,
orientation = "io",
rts = "crs")
efficiencies(result_SBM)
efficiencies(result_CCR)
slacks(result_SBM)
slacks(result_CCR)
Description
Slack based measure of superefficiency model (Tone 2002) with n DMUs, m inputs and s outputs.
Usage
model_sbmsupereff(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
weight_input = 1,
weight_output = 1,
orientation = c("no", "io", "oo"),
rts = c("crs", "vrs", "nirs", "ndrs", "grs"),
L = 1,
U = 1,
compute_target = TRUE,
model_sbmsupereff 85
compute_rho = FALSE,
kaizen = FALSE,
silent = FALSE,
returnlp = FALSE)
Arguments
Author(s)
References
Tone, K. (2002). "A slacks-based measure of super-efficiency in data envelopment analysis", Euro-
pean Journal of Operational Research, 143, 32-41. doi:10.1016/S03772217(01)003241
Tone, K. (2010). "Variations on the theme of slacks-based measure of efficiency in DEA", European
Journal of Operational Research, 200, 901-907. doi:10.1016/[Link].2009.01.027
Cooper, W.W.; Seiford, L.M.; Tone, K. (2007). Data Envelopment Analysis. A Comprehensive
Text with Models, Applications, References and DEA-Solver Software. 2nd Edition. Springer,
New York. doi:10.1007/9780387452838
See Also
Examples
# Replication of results in Tone(2002, p.39)
data("Power_plants")
data_example <- make_deadata(Power_plants,
ni = 4,
no = 2)
result <- model_sbmsupereff(data_example,
orientation = "io",
rts = "crs")
efficiencies(result)
slacks(result)$slack_input
references(result)
Description
Usage
model_supereff(datadea,
dmu_eval = NULL,
dmu_ref = NULL,
supereff_modelname = c("basic"),
...)
model_supereff 87
Arguments
datadea An object of class deadata.
dmu_eval A numeric vector containing which DMUs have to be evaluated. If NULL (de-
fault), all DMUs are considered.
dmu_ref A numeric vector containing which DMUs are the evaluation reference set. If
NULL (default), all DMUs are considered.
supereff_modelname
A string containing the name of the radial model to apply super-efficiency.
... orientation, rts and other model parameters.
Note
(1) Radial super-efficiency model under variable (vrs, nirs, ndrs, grs) returns to scale can be infea-
sible for certain DMUs. See example 2.
(2) DMUs with infeasible solution are not shown in the results.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Andersen, P.; Petersen, N.C. (1993). "A procedure for ranking efficient units in data envelopment
analysis", Management Science, 39, 1261-1264.
Tone, K. (2002). "A slacks-based measure of super-efficiency in data envelopment analysis", Euro-
pean Journal of Operational Research, 143, 32-41.
See Also
model_basic, model_sbmsupereff, model_addsupereff
Examples
# Example 1.
# Replication of results in Tone (2002, p.38)
data("Power_plants")
data_example <- make_deadata(Power_plants,
ni = 4,
no = 2)
result <- model_supereff(data_example,
orientation = "io",
rts = "crs")
eff <- efficiencies(result)
88 multipliers
# Example 2.
# Results of Super-efficiency with vrs returns to scale show infeasibility solutions
# for DMUs D4 and D6 (these DMUs are not shown in deaR results).
data("Power_plants")
data_example2 <- make_deadata(Power_plants,
ni = 4,
no = 2)
result2 <- model_supereff(data_example2,
orientation = "io",
rts = "vrs")
eff2 <- efficiencies(result2)
multipliers Multipliers
Description
Extract the multipliers of the DMUs from a dea or dea_fuzzy solution.
Usage
multipliers(deasol)
Arguments
deasol Object of class dea or dea_fuzzy obtained with some of the DEA model func-
tions.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_multiplier(data_example,
orientation = "io",
rts = "crs")
multipliers(result)
PFT1981 89
Description
Data from Project Follow Through (PTF) in public school education. There are 49 DMUs (school
sites) in PFT and 21 DMUs in Non-Follow Through (NFT). Authors consider 3 outputs (Y) and 5
inputs (X).
Usage
data("PFT1981")
Format
Data frame with 70 rows and 10 columns. Definition of inputs (X) and outputs (Y):
Y1 = Reading Total Reading Scores (as measured by the Metropolitan Achievement Test).
Y2 = Math Total Math Scores (total mathematics score by the Metropolitan Achievement Test.
Y3 = Coopersmith Total Coopersmith Scores (Coopersmith self-esteem inventory, intended as a
measure of self-esteem).
X1 = Education Education level of mother (as measured in terms of percentage of high school
graduates among female parents).
X2 = Occupation Occupation Index (highest occupation of a family member according to a pre-
arranged rating scale).
X3 = Parental Parental Visit Index (representing the number of visits to the school site).
X4 = Counseling Counseling Index (parent counselling index calculated from data on time spent
with child on school-related topics such as reading together, etc.).
X5 = Teachers Number of Teachers (number of teachers at a given site).
Program PFT or NFT.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Charnes, A.; Cooper, W.W.; Rhodes, E. (1981). "Evaluating Program and Managerial Efficiency:
An Application of Data Envelopment Analysis to Program Follow Through", Management Science,
27(6), 668-697. doi:10.1287/mnsc.27.6.668
90 [Link]
See Also
make_deadata, model_basic
Examples
# Example 1. Replication of results in Charnes, Cooper and Rhodes (1981)
data("PFT1981")
# selecting DMUs in Project Follow Through (PFT)
PFT <- PFT1981[1:49, ]
PFT <- make_deadata(PFT,
dmus = 1,
inputs = 2:6,
outputs = 7:9 )
eval_pft <- model_basic(PFT,
orientation = "io",
rts = "crs")
eff_pft <- efficiencies(eval_pft)
Description
Plot some attribute of a DEA model.
Usage
## S3 method for class 'dea'
plot(x, tol = 1e-04, showPlots = TRUE, ...)
Arguments
x An object of class dea obtained by a DEA model function.
tol Numeric. Absolute tolerance for numeric comparisons. By default, it is 1e-4.
plot.dea_fuzzy 91
showPlots Logical. When TRUE (default) the plots are shown one by one. When it is
FALSE the plots are not shown and are returned by the function (invisibly) as a
list.
... Ignored, for compatibility issues.
Value
Author(s)
References
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
Examples
data_example <- make_deadata(datadea = Fortune500,
inputs = 2:4,
outputs = 5:6)
result <- model_basic(data_example)
plot(result)
Description
Plot some attributes of a fuzzy DEA model (Guo-Tanaka, Kao-Liu and possibilistic models).
Usage
Arguments
x An object of class dea_fuzzy obtained by a fuzzy DEA model function.
showPlots Logical. When TRUE (default) the plots are shown one by one. When it is
FALSE the plots are not shown and are returned by the function (invisibly) as a
list.
... Ignored, for compatibility issues.
Value
Depending on the model, it returns some plots.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envel-
opment Analysis with Spreadsheets. 3rd Edition Springer, New York. doi:10.1007/9783319066479
Description
This dataset consists of six power plants with 4 inputs (X) and 2 outputs (Y).
Usage
data("Power_plants")
Format
Data frame with 15 rows and 7 columns. Definition of inputs (X) and outputs (Y):
x1 Manpower requiered
x2 Construction costs in millions of dollars
x3 Annual maintenance costs in millions of dollars
x4 Number of villages to be evacuated
y1 Power generated in megawatts
y2 Safety level
Power_plants 93
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Andersen, P.; Petersen, N.C. (1993). "A procedure for ranking efficient units in data envelopment
analysis", Management Science, 39, 1261-1264.
Doyle, J. and Green R. (1993). "Data envelopment analysis and multiple criteria decision making",
Omega, 21 (6), 713-715. doi:10.1016/03050483(93)90013B
Tone, K. (2002). "A slacks-based measure of super-efficiency in data envelopment analysis", Euro-
pean Journal of Operational Research, 143, 32-41. doi:10.1016/S03772217(01)003241
See Also
make_deadata, model_supereff, model_sbmsupereff
Examples
# Example 1. Radial super-efficiency model.
# Replication of results in Tone (2002)
data("Power_plants")
data_example <- make_deadata(Power_plants,
ni = 4,
no = 2)
result <- model_supereff(data_example,
orientation = "io",
rts = "crs")
eff <- efficiencies(result)
eff
Description
Print method for deadata class.
Usage
## S3 method for class 'deadata'
print(x, ...)
Arguments
x A deadata object (as returned by make_deadata function).
... For compatibility issues.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Description
Print method for deadata_fuzzy class.
Usage
## S3 method for class 'deadata_fuzzy'
print(x, ...)
Arguments
x A deadata_fuzzy object (as returned by make_deadata_fuzzy function).
... For compatibility issues.
read_data 95
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
read_data read_data
Description
This function is deprecated. Use make_deadata instead.
Usage
read_data(datadea = NULL,
ni = NULL,
no = NULL,
dmus = 1,
inputs = NULL,
outputs = NULL,
nc_inputs = NULL,
nc_outputs = NULL,
nd_inputs = NULL,
nd_outputs = NULL,
ud_inputs = NULL,
ud_outputs = NULL)
Arguments
datadea Data frame with DEA data.
ni Number of inputs, if inputs are in columns 2:(ni + 1) (if DMUs are in the first
column) or 1:ni (no DMUs column).
no Number of outputs, if outputs are in columns (ni + 2):(ni + no + 1) (if DMUs are
in the first column) or (ni + 1):(ni + no) (no DMUs column). If not specified,
DMUs are in the first column.
dmus Column (number or name) of DMUs (optional). By default, it is the first column.
If there is not any DMU column, then it must be NULL.
inputs Columns (numbers or names) of inputs (optional). It prevails over ni. Alterna-
tively to datadea, it can be a matrix with the inputs (DMUs in columns). In this
case, DMUs names are taken from the columns names.
outputs Columns (numbers or names) of outputs (optional). It prevails over no. Alter-
natively to datadea, it can be a matrix with the outputs (DMUs in columns).
96 read_data_fuzzy
read_data_fuzzy read_data_fuzzy
Description
This function is deprecated. Use make_deadata_fuzzy instead.
Usage
read_data_fuzzy(datadea,
dmus = 1,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
[Link] = NULL,
nc_inputs = NULL,
nc_outputs = NULL,
nd_inputs = NULL,
nd_outputs = NULL,
ud_inputs = NULL,
ud_outputs = NULL)
Arguments
datadea Data frame with DEA data.
dmus Column (number or name) of DMUs (optional). By default, it is the first column.
If there is not any DMU column, then it must be NULL.
[Link] Where are (columns) the mL (left centers) of trapezoidal fuzzy inputs in datadea.
If an input is triangular or crisp, we put the column where the centers or the crisp
values are, respectively.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the mL of trapezoidal fuzzy inputs, the centers of tri-
angular inputs, and the crisp values of crisp inputs. In this case, DMUs names
are taken from the columns names.
read_malmquist 97
[Link] Where are (columns) the mR (right centers) of trapezoidal fuzzy inputs in datadea.
If an input is triangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the mR of trapezoidal fuzzy inputs, the centers of tri-
angular inputs, and the crisp values of crisp inputs. If all inputs are triangular or
crisp, then [Link] must be NULL (default) or equal to [Link].
[Link] Where are (columns) the dL (left radii) of trapezoidal and triangular fuzzy inputs
in datadea. If an input is symmetric, we put the column where the radii are. If
an input is rectangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of inputs
x number of DMUs) with the dL of trapezoidal and triangular fuzzy inputs. If
an input is rectangular or crisp, its radius is zero. If all inputs are rectangular or
crisp, then [Link] must be NULL (default) or a zero matrix.
[Link] Where are (columns) the dR (right radii) of trapezoidal and triangular fuzzy in-
puts in datadea. If an input is symmetric, rectangular or crisp, we put NA.
Alternatively to datadea, [Link] can be a matrix of size (number of in-
puts x number of DMUs) with the dR of trapezoidal and triangular fuzzy inputs.
If an input is rectangular or crisp, its radius is zero. If all inputs are symmet-
ric, rectangular or crisp, then [Link] must be NULL (default) or equal to
[Link].
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
[Link] Analogous to [Link], but relating to outputs.
nc_inputs A numeric vector containing the indices of non-controllable inputs.
nc_outputs A numeric vector containing the indices of non-controllable outputs.
nd_inputs A numeric vector containing the indices of non-discretionary inputs.
nd_outputs A numeric vector containing the indices of non-discretionary outputs.
ud_inputs A numeric vector containing the indices of undesirable (good) inputs.
ud_outputs A numeric vector containing the indices of undesirable (bad) outputs.
read_malmquist read_malmquist
Description
This function is deprecated. Use make_malmquist instead.
Usage
read_malmquist(datadea,
nper = NULL,
percol = NULL,
arrangement = c("horizontal", "vertical"),
...)
98 references
Arguments
datadea Data frame with DEA data.
nper Number of time periods (with dataset in wide format).
percol Column of time period (with dataset in long format).
arrangement Horizontal with data in wide format. Vertical with data in long format.
... Other options to be passed to the make_deadata function.
references References
Description
Extract the reference set for each DMU (inefficient DMUs and efficicent DMUs that are combina-
tion of other efficient DMUs) from a DEA model solution.
Usage
references(deasol,
thr = 1e-4)
Arguments
deasol Object of class dea obtained with some of the DEA model functions.
thr Tolerance threshold (for avoiding miss detection of efficient DMUs due to round
off errors)
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
# Replication results model DEA1 in Tomkins and Green (1988).
data("Departments")
# Calculate Total income
Departments$Total_income <- Departments[, 5] + Departments[, 6] + Departments[, 7]
data_DEA1 <- make_deadata(Departments,
inputs = 9,
outputs = c(2, 3, 4, 12))
result <- model_basic(data_DEA1,
orientation = "io",
rts 99
rts = "crs")
references(result) # Table 3 (p.157)
Description
Usage
rts(deamodel,
thr = 1e-4)
Arguments
deamodel Object of class dea obtained with some of the DEA model functions.
thr Threshold for the tolerance for considering something equal to 1. Defaults to
1e-4.
Author(s)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_basic(data_example,
orientation = "io",
rts ="crs")
rts(result)
100 Ruggiero2007
Description
Simulated data of 35 DMUs with two inputs and one output.
Usage
data("Ruggiero2007")
Format
Data frame with 35 rows and 4 columns. Definition of inputs (X) and outputs (Y):
x1 Input 1
x2 Input 2
y1 Output 1
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Ruggiero J. (2007). Non-Discretionary Inputs. In: Zhu J., Cook W.D. (eds) Modeling Data Ir-
regularities and Structural Complexities in Data Envelopment Analysis. Springer, Boston, MA.
doi:10.1007/9780387716077_5
See Also
make_deadata, model_basic
Examples
# Example. Replication of results in Ruggiero (2007).
data("Ruggiero2007")
# the second input is a non-discretionary input
datadea <- make_deadata(Ruggiero2007,
ni = 2,
no = 1,
nd_inputs = 2)
result <- model_basic(datadea,
slacks 101
orientation = "io",
rts = "crs")
efficiencies(result)
slacks(result)
slacks Slacks
Description
Usage
slacks(deasol)
Arguments
deasol Object of class dea or dea_fuzzy obtained with some of the DEA model func-
tions.
Author(s)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_multiplier(data_example,
orientation = "io",
rts = "crs")
slacks(result)
102 [Link]
Description
Summary of the results obtained by a conventional DEA model.
Usage
## S3 method for class 'dea'
summary(object, exportExcel = FALSE, filename = NULL, returnList = FALSE, ...)
Arguments
object An object of class "dea" obtained by a DEA model function.
exportExcel Logical value. If TRUE (FALSE by default) the results are also exported to an
Excel file.
filename Character string. Absolute file name (including path) of the exported Excel file.
If NULL, then the file name will be "ResultsDEA" + [Link].
returnList Logical value. If TRUE then the results are given as a list of data frames. If
FALSE (default) all the data frames are merged into a single data frame.
... Ignored. Used for compatibility issues.
Value
Depending on the model it returns a single [Link] containing: efficiencies, slacks, lambdas, tar-
gets, references or a list of [Link] with the cross-efficiencies computed with different methods
(Arbitrary, Method II or Method III (see CITA)) or, in case the model is a Malmquist index, a single
[Link] with the coefficients for the different periods.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Charnes, A.; Cooper, W.W.; Rhodes, E. (1981). "Evaluating Program and Managerial Efficiency:
An Application of Data Envelopment Analysis to Program Follow Through", Management Science,
27(6), 668-697. doi:10.1287/mnsc.27.6.668
summary.dea_fuzzy 103
Examples
data("PFT1981")
# Selecting DMUs in Program Follow Through (PFT)
PFT <- PFT1981[1:49, ]
PFT <- make_deadata(PFT,
inputs = 2:6,
outputs = 7:9 )
eval_pft <- model_basic(PFT,
orientation = "io",
rts = "crs")
summary(eval_pft)
Description
Summary of the results obtained by a fuzzy DEA model.
Usage
## S3 method for class 'dea_fuzzy'
summary(object, ..., exportExcel = FALSE, filename = NULL, returnList = FALSE)
Arguments
object An object of class "dea_fuzzy" obtained with a fuzzy DEA model function
(modelfuzzy_guotanaka, modelfuzzy_kaoliu, modelfuzzy_possibilistic).
... Extra options.
exportExcel Logical value. If TRUE (FALSE by default) the results are also exported to an
Excel file.
filename Character string. Absolute file name (including path) of the exported Excel file.
If NULL, then the file name will be "ResultsDEA" + [Link].
returnList Logical value. If TRUE then the results are given as a list of data frames. If
FALSE (default) all the data frames are merged into a single data frame.
Value
If the model is that from Guo and Tanaka (modelfuzzy_guotanaka), it returns a [Link] with
columns: DMU, alpha cuts and efficiencies. For the possibilistic model (modelfuzzy_possibilistic)
it returns a [Link] with columns: DMU, alpha-cuts, efficiencies and the corresponding lambda
values For the Kao-Liu model (modelfuzzy_kaoliu), the result may depend on the crisp sub-model
used. It will contain a [Link] with the efficiencies (if any), the slacks and superslacks (if any),
the lambda values and the targets.
If exportExcel is TRUE, then an Excel file will be created containing as many sheets as necessary
depending on the variables returned.
104 Supply_Chain
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Leon, T.; Liern, V. Ruiz, J.; Sirvent, I. (2003). "A Possibilistic Programming Approach to the
Assessment of Efficiency with DEA Models", Fuzzy Sets and Systems, 139, 407–419. doi:10.1016/
S01650114(02)006085
Examples
data("Leon2003")
data_example <- make_deadata_fuzzy(Leon2003,
[Link] = 2,
[Link] = 3,
[Link] = 4,
[Link] = 5)
result <- modelfuzzy_possibilistic(data_example,
h = seq(0, 1, by = 0.1),
orientation = "io",
rts = "vrs")
summary(result)
Description
Data of 17 supply chain (buyer-supplier relationship in manufacturing).
Usage
data("Supply_Chain")
Format
Data frame with 17 rows and 8 columns. Definition of inputs (X) and outputs (Y):
X1 to X3 Inputs of buyers
I1 to I2 Outputs of buyers, Inputs of suppliers
Y1 to Y2 Outputs of suppliers
targets 105
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Source
Sanei, M.; Mamizadeh Chatghayeb, S. (2013). “Free Disposal Hull Models in Supply Chain Man-
agement”, International Journal of Mathematical Modelling and Computations, 3(3), 125-129.
See Also
make_deadata, model_fdh
Examples
# Example. FDH input-oriented.
# Replication of results in Sanei and Mamizadeh Chatghayeb (2013)
data("Supply_Chain")
data_fdh1 <- make_deadata(Supply_Chain,
dmus = 1,
inputs = 2:4,
outputs = 5:6)
# by default orientation = "io"
result <- model_fdh(data_fdh1)
efficiencies(result)
targets Targets
Description
Extract the targets of the DMUs from a dea or dea_fuzzy solution.
Usage
targets(deasol)
Arguments
deasol Object of class dea or dea_fuzzy obtained with some of the DEA model func-
tions.
106 Tone2001
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Examples
data("Coll_Blasco_2006")
data_example <- make_deadata(Coll_Blasco_2006,
ni = 2,
no = 2)
result <- model_multiplier(data_example,
orientation = "io",
rts = "crs")
targets(result)
Description
Data of 5 DMUs producing 2 outputs by using 2 inputs
Usage
data("Tone2001")
Format
Data frame with 5 rows and 5 columns. Definition of inputs (X) and outputs (Y):
x1 Input1
x2 Input2
y1 Output1
y2 Output2
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
Tone2003 107
Source
Tone, K. (2001). "A Slacks-Based Measure of Efficiency in Data Envelopment Analysis", European
Journal of Operational Research, 130, 498-509. doi:10.1016/S03772217(99)004075
See Also
make_deadata, model_sbmeff
Examples
# Example. Replication of results in Tone (2001, p. 505)
data("Tone2001")
data_example <- make_deadata(Tone2001,
ni = 2,
no = 2)
result <- model_sbmeff(data_example,
orientation = "no",
rts = "crs")
efficiencies(result)
slacks(result)
Description
Data of 9 DMUs producing 2 outputs, being second output undesirable, by using 1 input.
Usage
data("Tone2003")
Format
Data frame with 9 rows and 4 columns. Definition of inputs (X) and outputs (Y):
x Input
yg Output1 ("good" output)
yb Output2 (undesirable "bad" output)
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolos (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benitez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
108 undesirable_basic
Source
Tone, K. (2003). "Dealing with undesirable outputs in DEA: A Slacks-Based Measure (SBM)
approach", GRIPS Research Report Series I-2003-0005.
See Also
make_deadata, model_sbmeff
Examples
# Example. Replication of results in Tone (2003), pp 10-11.
data("Tone2003")
data_example <- make_deadata(Tone2003,
ni = 1,
no = 2,
ud_outputs = 2)
result <- model_sbmeff(data_example,
rts = "vrs")
efficiencies(result)
targets(result)
Description
This function transforms a deadata or deadata_fuzzy class with undesirable inputs/outputs accord-
ing to Seiford and Zhu (2002). Onwards, it is recommended to use a DEA model with variable
returns to scale (vrs).
Usage
undesirable_basic(datadea,
vtrans_i = NULL,
vtrans_o = NULL)
Arguments
datadea A deadata object, including DMUs, inputs and outputs.
vtrans_i Numeric vector of translation for undesirable inputs. If vtrans_i[i] is NA, then
it applies the "max + 1" translation to the i-th undesirable input. If vtrans_i
is a constant, then it applies the same translation to all undesirable inputs. If
vtrans_i is NULL, then it applies the "max + 1" translation to all undesirable
inputs.
vtrans_o Numeric vector of translation for undesirable outputs, analogous to vtrans_i,
but applied to outputs.
undesirable_basic 109
Value
An list with the transformed object of class deadata or deadata_fuzzy and the corresponding
translation vectors vtrans_i and vtrans_o.
Author(s)
Vicente Coll-Serrano (<[Link]@[Link]>). Quantitative Methods for Measuring Culture
(MC2). Applied Economics.
Vicente Bolós (<[Link]@[Link]>). Department of Business Mathematics
Rafael Benítez (<[Link]@[Link]>). Department of Business Mathematics
University of Valencia (Spain)
References
Seiford, L.M.; Zhu, J. (2002). “Modeling undesirable factors in efficiency evaluation”, European
Journal of Operational Research 142, 16-20.
Hua Z.; Bian Y. (2007). DEA with Undesirable Factors. In: Zhu J., Cook W.D. (eds) Modeling
Data Irregularities and Structural Complexities in Data Envelopment Analysis. Springer, Boston,
MA.
Examples
data("Hua_Bian_2007")
# The third output is an undesirable output.
data_example <- make_deadata(Hua_Bian_2007,
ni = 2,
no = 3,
ud_outputs = 3)
# rts must be "vrs" for undesirable inputs/outputs:
# Translation parameter is set to (max + 1)
result <- model_basic(data_example,
orientation = "oo",
rts = "vrs")
Index
∗ datasets EconomyLong, 16
Airlines, 3 eff_dmus, 20
Coelli_1998, 6 efficiencies, 17
Coll_Blasco_2006, 7 [Link], 18
Departments, 13 efficiencies.dea_fuzzy, 19
Doyle_Green_1994, 14 Electric_plants, 21
Economy, 15 extreme_efficient, 22, 63
EconomyLong, 16
Electric_plants, 21 Fortune500, 23
Fortune500, 23 Fried1993, 24
Fried1993, 24 FuzzyExample, 25
FuzzyExample, 25
Golany_Roll_1989, 27 Golany_Roll_1989, 27
Grifell_Lovell_1999, 28 Grifell_Lovell_1999, 28
Guo_Tanaka_2001, 29 Guo_Tanaka_2001, 29
Hotels, 30
Hotels, 30
Hua_Bian_2007, 32
Hua_Bian_2007, 32
Kao_Liu_2003, 37
Leon2003, 39 [Link], 33
Libraries, 40 is.dea_fuzzy, 35
Lim_Zhu_2015, 42 [Link], 34
PFT1981, 89 is.deadata_fuzzy, 34
Power_plants, 92 [Link], 36, 53
Ruggiero2007, 100
Supply_Chain, 104 Kao_Liu_2003, 37
Tone2001, 106
Tone2003, 107 lambdas, 38
Leon2003, 39
Airlines, 3 Libraries, 40
Lim_Zhu_2015, 42
bootstrap_basic, 4
make_deadata, 4, 7, 8, 13, 15, 21, 24, 25, 27,
Coelli_1998, 6
31, 32, 41, 43, 43, 90, 93, 100, 105,
Coll_Blasco_2006, 7
107, 108
cross_efficiency, 8, 15, 27, 43, 75
make_deadata_fuzzy, 26, 30, 38, 40, 45
cross_efficiency_fuzzy, 10, 11, 30, 40, 54
make_malmquist, 16, 17, 28, 47
Departments, 13 malmquist_index, 16, 17, 28, 49
Doyle_Green_1994, 14 maximal_friends, 36, 52, 63
model_additive, 58, 63, 66
Economy, 15 model_addmin, 61
110
INDEX 111
PFT1981, 89
[Link], 90
plot.dea_fuzzy, 91
Power_plants, 92
[Link], 94
print.deadata_fuzzy, 94
read_data, 95
read_data_fuzzy, 96
read_malmquist, 97
references, 98
rts, 99
Ruggiero2007, 100
slacks, 101
[Link], 102
summary.dea_fuzzy, 103
Supply_Chain, 104
targets, 105
Tone2001, 106
Tone2003, 107
undesirable_basic, 108