X <- matrix(c(1,2,3,3,2,1,2,2), ncol = 2)
Y <- matrix(c(1,1,1,1), ncol = 1)
pX <- matrix(c(2,1,2,1,2,1,1,2), ncol = 2, byrow = TRUE)
pY <- matrix(c(1,1,1,1), ncol = 1)
max_prof_lin<- lprofitDEA(X,Y,pX,pY)
Run the code above in your browser using DataLab