# NOT RUN {
#Example with a very small sample to decrease computational time.
y1 <-runif(50, 50, 75)
y2 <-runif(50, 30, 75)
y <- cbind(y1, y2)
#Robust BOD
r_BOD <- robust_BOD(output = y, m = 30, B = 50,
RTS = "crs", ORIENTATION = "in", print = TRUE)
summary(r_BOD$eff)
# }
# NOT RUN {
#Example with random data x and y
y1 <-runif(100, 50, 75)
y2 <-runif(100, 30, 75)
y <- cbind(y1, y2)
#Robust BOD
r_BOD <- robust_BOD(output = y, m = 30, B = 50,
RTS = "crs", ORIENTATION = "in", print = TRUE)
summary(r_BOD$eff)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab