This function transforms a deadata or deadata_fuzzy class with undesirable inputs/outputs according to Seiford and Zhu (2002). Onwards, it is recommended to use a DEA model with variable returns to scale (vrs).
undesirable_basic(datadea,
vtrans_i = NULL,
vtrans_o = NULL)An list with the transformed object of class deadata or deadata_fuzzy
and the corresponding translation vectors vtrans_i and vtrans_o.
A deadata object, including DMUs, inputs and outputs.
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.
Numeric vector of translation for undesirable outputs, analogous to
vtrans_i, but applied to outputs.
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)
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.
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")
Run the code above in your browser using DataLab