# Example. Replication of results in Coelli et al. (1998, p.166).
# Cost efficiency model.
data("Coelli_1994")
# Selection of prices: data_prices is the trasnpose where the prices for inputs are.
data_prices <- t(Coelli_1998[, 5:6])
data_example <- make_deadata(Coelli_1998,
dmus = 1,
ni = 2,
no = 1)
result <- model_profit(data_example,
price_input = data_prices,
rts = "crs",
restricted_optimal = FALSE)
# notice that the option by default is restricted_optimal=TRUE
efficiencies(result)
Run the code above in your browser using DataLab