undesirable_basic_fzn: Undesirable inputs and outputs for basic DEA model.

In rbensua/fuzzyr: Fuzzy numbers

Undesirable inputs and outputs for basic DEA model.

Description

This function transforms, according to Seiford and Zhu (2002), a deadata or deadata_fuzzy class with undesirable inputs/outputs into a deadata or deadata_fuzzy class with no undesirable inputs/outputs. 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	The data, 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 object of class deadata or deadata_fuzzy.

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 <- read_data(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")

rbensua/fuzzyr documentation built on May 20, 2023, 7:11 a.m.