CrossEfficiency: Cross Efficiency Model

In aurokp2/MultiplierDEA: Multiplier Data Envelopment Analysis and Cross Efficiency

Cross Efficiency Model

Description

Cross Efficiency uses DEA to do peer evaluation of DMUs. Single-phase cross efficiency approach.

Usage

CrossEfficiency(x = x, y = y, rts = "crs", orientation = "input", weightRestriction)

Arguments

x	Inputs or resources used by each decision making unit.
y	Outputs or resources used by each decision making unit.
rts	Returns to scale for the application, or industry studied. Note the default rts is crs. vrs Variable returns to scale. crs Constant returns to scale.
orientation	Orientation of the DEA model - primary emphasis on input-reduction input or output-augmentation output. Note that unlike the DEA functions, the default is input orientation.
weightRestriction	Weight restriction for the model. Optional parameter.

Value

The function returns a number of values per DMU.

$ceva_matrix	Returns the cross efficiency matrix. Row is the Rating DMU and Column is the Rated DMU.
$ce_ave	Returns the cross efficiency score for the DMU.
$ceva_max	Returns the maximum cross efficiency score for the DMU.
$ceva_min	Returns the minimum cross efficiency score for the DMU.
$vx	Input weights from the model.
$uy	Output weights from the model.
$Model_Status	Returns the status of the LP model.

Note

ceva_matrix - cross-evaluation matrix. ceva_max - cross-evaluation maximum. ceva_min - cross-evaluation minimum. ce_ave - cross-efficiency scores.

Examples

#Example from Kenneth R. Baker: Optimization Modeling with Spreadsheets, Third Edition,p. 176,
#John Wiley and Sons, Inc.

dmu <- c("A", "B", "C", "D", "E", "F")
x <- data.frame(c(150,400,320,520,350,320),c(0.2,0.7,1.2,2.0,1.2,0.7))
rownames(x) <- dmu
colnames(x)[1] <- c("StartHours")
colnames(x)[2] <- c("Supplies")

y <- data.frame(c(14,14,42,28,19,14),c(3.5,21,10.5,42,25,15))
rownames(y) <- dmu
colnames(y)[1] <- c("Reimbursed")
colnames(y)[2] <- c("Private")

# Calculate the efficiency score
result <- CrossEfficiency(x,y,"crs", "input")
# Examine the cross efficiency score for DMUs
print(result$ce_ave)

aurokp2/MultiplierDEA documentation built on Sept. 9, 2022, 3:35 p.m.