## See demo("concentration-bundesliga") for a real-world
## application.
set.seed(1234)
x <- sample(100000, 10)
## Classical concentration indices:
herfindahl(x)
rosenbluth(x)
## Exogenous order is available:
o <- sample(10)
exogeny(x, o)
Run the code above in your browser using DataLab