undesirable_basic {deaR}

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)

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.

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 ([e-mail]). Quantitative Methods for Measuring Culture (MC2). Applied Economics.

Vicente Bolós ([e-mail]). Department of Business Mathematics

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