model_deaps | R Documentation |
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(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,
...)
datadea |
A |
dmu_eval |
A numeric vector containing which DMUs have to be evaluated.
If |
dmu_ref |
A numeric vector containing which DMUs are the evaluation reference set.
If |
weight_eff |
Preference weights. If input-oriented, it is a value, vector of length
|
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" (generalized). |
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 |
maxslack |
Logical. If it is |
weight_slack |
If input-oriented, it is a value, vector of length |
compute_target |
Logical. If it is |
returnlp |
Logical. If it is |
... |
Ignored, for compatibility issues. |
Vicente Coll-Serrano (vicente.coll@uv.es). Quantitative Methods for Measuring Culture (MC2). Applied Economics.
Vicente Bolós (vicente.bolos@uv.es). Department of Business Mathematics
Rafael Benítez (rafael.suarez@uv.es). Department of Business Mathematics
University of Valencia (Spain)
Zhu, J. (1996). “Data Envelopment Analysis with Preference Structure”, The Journal of the Operational Research Society, 47(1), 136. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.2307/2584258")}
Zhu, J. (2014). Quantitative Models for Performance Evaluation and Benchmarking. Data Envelopment Analysis with Spreadsheets. 3rd Edition Springer, New York. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1007/978-3-319-06647-9")}
model_nonradial
, model_profit
,
model_sbmeff
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.