deaR (version 1.4.1)

undesirable_basic: Undesirable inputs and outputs for basic DEA model.

Description

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).

Usage

undesirable_basic(datadea,
                  vtrans_i = NULL,
                  vtrans_o = NULL)

Value

An list with the transformed object of class deadata or deadata_fuzzy

and the corresponding translation vectors vtrans_i and vtrans_o.

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.

Author

Vicente Coll-Serrano (). Quantitative Methods for Measuring Culture (MC2). Applied Economics.

Vicente Bolós (). Department of Business Mathematics

Rafael Benítez (). 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")