# \donttest{
# Example 1.
library(deaR)
data("Coll_Blasco_2006")
ni <- 2 # number of inputs
no <- 2 # number of outputs
data_example <- make_deadata(datadea = Coll_Blasco_2006,
ni = ni,
no = no)
nd <- length(data_example$dmunames) # number of DMUs
var_input <- matrix(1, nrow = ni, ncol = nd)
var_output <- matrix(1, nrow = no, ncol = nd)
data_stoch <- make_deadata_stoch(datadea = data_example,
var_input = var_input,
var_output = var_output)
# Evaluate the sixth DMU
Collstoch <- modelstoch_radial(data_stoch, dmu_eval = 6)
efficiencies(Collstoch)
# }
Run the code above in your browser using DataLab