# 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 <- read_data(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