---

---

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.3.2

library(ineq)
library(RColorBrewer)
library(ggthemes)

## Warning: package 'ggthemes' was built under R version 3.3.2

fill=brewer.pal(10,"Set3")
datos=read.csv('distribucioningreso.csv',header=T,sep=',')

## [1] 0.3140845

## [1] 0.401431

## [1] 0.4668375

## $p
##  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
## 
## $L
##  [1] 0.00000000 0.04336129 0.09257794 0.14764994 0.21142586 0.28105713
##  [7] 0.36081658 0.46225669 0.58695996 0.74347207 1.00000000
## 
## $L.general
##  [1]   0.0  27.4  58.5  93.3 133.6 177.6 228.0 292.1 370.9 469.8 631.9
## 
## attr(,"class")
## [1] "Lc"

## $p
##  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
## 
## $L
##  [1] 0.00000000 0.02328402 0.06015038 0.10259520 0.15462042 0.21343682
##  [7] 0.29008004 0.39134126 0.52813485 0.72920204 1.00000000
## 
## $L.general
##  [1]   0.0  19.2  49.6  84.6 127.5 176.0 239.2 322.7 435.5 601.3 824.6
## 
## attr(,"class")
## [1] "Lc"

## $p
##  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
## 
## $L
##  [1] 0.00000000 0.02285304 0.04570609 0.07429801 0.12574298 0.17718795
##  [7] 0.24574708 0.33715925 0.46853863 0.66857963 1.00000000
## 
## $L.general
##  [1]   0.0  22.3  44.6  72.5 122.7 172.9 239.8 329.0 457.2 652.4 975.8
## 
## attr(,"class")
## [1] "Lc"