Description Usage Arguments Author(s) References See Also Examples

This function computes the Gini coefficient. The Gini index measures spatial inequality. It ranges from 0 (perfect income equality) to 1 (perfect income inequality) and is derived from the Lorenz curve. The Gini coefficient is defined as a ratio of two surfaces derived from the Lorenz curve. The numerator is given by the area between the Lorenz curve of the distribution and the uniform distribution line (45 degrees line). The denominator is the area under the uniform distribution line (the lower triangle). This index gives an indication of the unequal distribution of an industry accross n regions. Maximum inequality in the sample occurs when n-1 regions have a score of zero and one region has a positive score. The maximum value of the Gini coefficient is (n-1)/n and approaches 1 (theoretical maximum limit) as the number of observations (regions) increases.

1 | ```
Gini(mat)
``` |

`ind` |
A vector of industrial regional count |

Pierre-Alexandre Balland p.balland@uu.nl

Gini, C. (1921) Measurement of Inequality of Incomes, *The Economic Journal* **31**: 124-126

`Hoover.Gini`

, `locational.Gini`

, `locational.Gini.curve`

, `Lorenz.curve`

, `Hoover.curve`

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ```
## generate vectors of industrial count
ind <- c(0, 10, 10, 30, 50)
## run the function
Gini (ind)
## generate a region - industry matrix
mat = matrix (
c (0, 1, 0, 0,
0, 1, 0, 0,
0, 1, 0, 0,
0, 1, 0, 1,
0, 1, 1, 1), ncol = 4, byrow = T)
rownames(mat) <- c ("R1", "R2", "R3", "R4", "R5")
colnames(mat) <- c ("I1", "I2", "I3", "I4")
## run the function
Gini (mat)
## run the function by aggregating all industries
Gini (rowSums(mat))
## run the function for industry #1 only (perfect equality)
Gini (mat[,1])
## run the function for industry #2 only (perfect equality)
Gini (mat[,2])
## run the function for industry #3 only (perfect unequality: max Gini = (5-1)/5)
Gini (mat[,3])
## run the function for industry #4 only (top 40% produces 100% of the output)
Gini (mat[,4])
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.