# Replication results model DEA1 in Tomkins and Green (1988).
data("Departments")
# Calculate Total income
Departments$Total_income <- Departments[, 5] + Departments[, 6] + Departments[, 7]
data_DEA1 <- make_deadata(Departments,
inputs = 9,
outputs = c(2, 3, 4, 12))
result <- model_basic(data_DEA1,
orientation = "io",
rts = "crs")
references(result) # Table 3 (p.157)
Run the code above in your browser using DataLab