# \donttest{
simulated <- X2Y2.sim(N = 50, border = 0.2)
EAT_model <- EAT(data = simulated, x = c(1,2), y = c(3, 4))
efficiencyCEAT(data = simulated, x = c(1, 2), y = c(3, 4), object = EAT_model,
scores_model = "BCC.OUT", digits = 2, DEA = TRUE, print.table = TRUE,
na.rm = TRUE)
# }
Run the code above in your browser using DataLab