library(ineq)

ineq(AirPassengers,type="Gini")
plot(Lc(AirPassengers))


ineq(iris$Sepal.Length,type="Gini")
plot(Lc(iris$Sepal.Length))