From: Gabor Grothendieck <ggrothendieck_at_gmail.com>

Date: Sat 25 Jun 2005 - 09:22:22 EST

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Sat Jun 25 09:28:36 2005

Date: Sat 25 Jun 2005 - 09:22:22 EST

On 6/24/05, Dimitri Joe <dimitrijoe@yahoo.com.br> wrote:

> Hi there,

*>
**> I am trying to compute Gini coefficients for vectors containing income classes. The data I possess look loke this:
**>
**> yit <- c(135, 164, 234, 369)
**> piit <- c(367, 884, 341, 74 )
**>
**> where yit is the vector of income classes, and fit is the vector of associated frequencies.(This data is from Rustichini, Ichino and Checci (Journal of Public Economics, 1999) ). In ineq pacakge, Gini( ) doesn't seem to handle frequencies. On the other had, Lc() compute the Lorenz curve using these frequencies, but I don't manage to use its output to compute the Gini coefficient. I wonder if you have already writen some function to do this, or if you could shed some light here and help me.
**>
*

Assuming x and n as in the args to Lc, use Brown's formula:

with(Lc(x,n), 1 - sum(diff(p) * (L[-1] + L[-length(L)]))) or equivalently:

with(Lc(x,n), 1 - sum(c(0,diff(p),0) * (c(L,0) + c(0,L))))

See

http://en.wikipedia.org/wiki/Gini_coefficient
and the online inequality calculator which can be used to
double check results:

http://www.poorcity.richcity.org/calculator.htm

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Sat Jun 25 09:28:36 2005

*
This archive was generated by hypermail 2.1.8
: Fri 03 Mar 2006 - 03:33:02 EST
*