By ET

The Gini coefficient is a measure of inequality. It is usually used to measure income inequality, but can be used to measure any form of uneven distribution. It is closely related to Lorenz Curve

(figure courtesy to WikiPedia)

I usually use perl to manipulate my datasets, and I could not find a procedure to calculate gini coefficient in perl. So I wrote one.

The definition of Gini coefficient is:

but,The Gini coefficient is often calculated with the more practical Brown Formula shown below:

G: Gini coefficient
X_k: cumulated proportion of the population variable, for k = 0,…,n, with X₀ = 0, X_n = 1
Y_k: cumulated proportion of the income variable, for k = 0,…,n, with Y₀ = 0, Y_n = 1

In the following program, I use yet another formula, which is even concise and straightforward:

(see Dixon et al. 1988, Damgaard and Weiner 2000)

Okey, the program itself:

#!/usr/bin/perl

my @origx=(20, 23, 18, 25, 28, 18);

my $gini=calc_gini(@origx);
print "$gini\n";
exit;

sub calc_gini{

my @origx=@_;
my @x = sort { $a <=> $b } @origx;

my $ginisum=0;
my $sum=0;
my $count=@x;

for (my $i=1;$i<=$count;$i++) {

$ginisum=$ginisum+(2*$i-$count-1)*$x[$i-1];
$sum=$sum+$x[$i-1];

}

my $gini=$ginisum/($count-1)/$sum;
return $gini;

}

References:

Damgaard, C. and Weiner, J. "Describing Inequality in Plant Size or Fecundity." Ecology 81, 1139-1142, 2000.

Dixon, P. M.; Weiner, J.; Mitchell-Olds, T.; and Woodley, R. "Erratum to ‘Bootstrapping the Gini Coefficient of Inequality.’ " Ecology 69, 1307, 1988.

 

By ET This entry was posted on Tuesday, March 21st, 2006 at 12:29 pm and is filed under General, Research, Technology. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.