# NOT RUN {
# 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 <- read_data(Departments,
inputs=9,
outputs=c(2,3,4,12))
result <- model_basic(data_DEA1,
orientation="io",
rts="crs")
efficiencies(result) # Table 3 (p.156)
# }
Run the code above in your browser using DataLab