Created
November 10, 2025 20:16
-
-
Save DATAUNIRIO/4d2cac2d5591cdb9b3e327ab3cfb3bc4 to your computer and use it in GitHub Desktop.
Benchmarking do DEA para o Juarez
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Install the Benchmarking package if you haven't already | |
| # install.packages("Benchmarking") | |
| # Load the library | |
| library(Benchmarking) | |
| # Sample data: inputs (x) and outputs (y) for a set of DMUs | |
| # Example from the package documentation | |
| x <- matrix(c(100, 200, 300, 500, 100, 200, 600), ncol = 1) | |
| y <- matrix(c(75, 100, 300, 400, 25, 50, 400), ncol = 1) | |
| # Run the DEA model (e.g., input-oriented, VRS or CRS) | |
| # The 'dea' function returns an object of class 'Farrell' | |
| # We'll use VRS (Variable Returns to Scale) as an example | |
| e <- Benchmarking::dea(x, y, RTS = "VRS", ORIENTATION = "in") | |
| e$eff | |
| # Get the peers for each DMU | |
| # The 'peers' function returns a matrix where each row corresponds to a DMU, | |
| # and the columns list the indices (or names, if specified) of its peers. | |
| # Efficient DMUs are their own peers. | |
| peers_list <- peers(e, NAMES = TRUE) | |
| # Print the peers | |
| print(peers_list) | |
| # To get the contribution (lambda values) of each peer, you can use the 'get.peers.lambda' function | |
| lambda_list <- get.peers.lambda(e) | |
| # Print the lambda values | |
| print(lambda_list) |
Author
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
install.packages("farrell")
https://cran.r-project.org/web/packages/farrell/vignettes/Intro.html
library(farrell)
farrell()