library(rDEA)

## Using the GLPK callable library version 4.47

library(readxl)
library(tidyverse)

## -- Attaching packages --------- tidyverse 1.2.1 --

## v ggplot2 3.1.1       v purrr   0.3.2  
## v tibble  2.1.1       v dplyr   0.8.0.1
## v tidyr   0.8.3       v stringr 1.4.0  
## v readr   1.3.1       v forcats 0.4.0

## -- Conflicts ------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

setwd("C:/Users/Windows 10/Documents")
df <- read_excel("dea.xlsx")
inv <- select(df,K,L)
ouv <- select(df,Y)
model <- dea(XREF = inv, YREF = ouv,X=inv[,],Y=ouv[,],model = "input",RTS = "constant")
EFT <-  as.data.frame(model)