x <- matrix(c(100,200,300,500,600,100),ncol=1)
y <- matrix(c(75,100,300,400,400,50),ncol=1)
dea.plot(x,y,RTS="vrs",ORIENTATION=3,txt=LETTERS[1:length(x)])
dea.plot(x,y,RTS="crs",ORIENTATION=3,add=TRUE,lty="dashed")
dea.plot.frontier(x,y,txt=1:dim(x)[1])
n <- 10
x <- matrix(1:n,,1)
y <- matrix(x^(1.6) + abs(rnorm(n)),,1)
dea.plot.frontier(x,y,RTS="irs",txt=1:n)
dea.plot.frontier(x,y,RTS="irs2",add=TRUE,lty="dotted")
id <- sample(1:n,30,replace=TRUE)
dea.plot(x[id],y[id],RTS="irs",ORIENTATION=3)
dea.plot.frontier(x[id],y[id],RTS="irs")
Run the code above in your browser using DataLab