data("PFT1981")
# Selecting DMUs in Program Follow Through (PFT)
PFT <- PFT1981[1:49, ]
PFT <- make_deadata(PFT,
inputs = 2:6,
outputs = 7:9 )
eval_pft <- model_basic(PFT,
orientation = "io",
rts = "crs")
summary(eval_pft)
Run the code above in your browser using DataLab