Power_plants: Data: Tone (2002).
In deaR: Conventional and Fuzzy Data Envelopment Analysis

Power_plants

R Documentation

Data: Tone (2002).

Description

This dataset consists of six power plants with 4 inputs (X) and 2 outputs (Y).

Usage

data("Power_plants")

Format

Data frame with 15 rows and 7 columns. Definition of inputs (X) and outputs (Y):

x1: Manpower requiered
x2: Construction costs in millions of dollars
x3: Annual maintenance costs in millions of dollars
x4: Number of villages to be evacuated
y1: Power generated in megawatts
y2: Safety level

Author(s)

Vicente Coll-Serrano (vicente.coll@uv.es). Quantitative Methods for Measuring Culture (MC2). Applied Economics.

Vicente Bolos (vicente.bolos@uv.es). Department of Business Mathematics

Rafael Benitez (rafael.suarez@uv.es). Department of Business Mathematics

University of Valencia (Spain)

Source

Andersen, P.; Petersen, N.C. (1993). "A procedure for ranking efficient units in data envelopment analysis", Management Science, 39, 1261-1264.

Doyle, J. and Green R. (1993). "Data envelopment analysis and multiple criteria decision making", Omega, 21 (6), 713-715. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/0305-0483(93)90013-B")}

Tone, K. (2002). "A slacks-based measure of super-efficiency in data envelopment analysis", European Journal of Operational Research, 143, 32-41. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/S0377-2217(01)00324-1")}

Examples

# Example 1. Radial super-efficiency model.
# Replication of results in Tone (2002)
data("Power_plants")
data_example <- make_deadata(Power_plants,
                             ni = 4,
                             no = 2)
result <- model_supereff(data_example,
                         orientation = "io",
                         rts = "crs")
eff <- efficiencies(result)
eff

# Example 2. SBM super-efficiency model.
data("Power_plants")
data_example <- make_deadata(Power_plants,
                             ni = 4,
                             no = 2)
result2 <- model_sbmsupereff(data_example,
                             orientation = "io",
                             rts = "crs")
efficiencies(result2)
slacks(result2)$input
references(result2)

deaR documentation built on May 2, 2023, 5:13 p.m.