Markets and Measurement II

Materials for class on Wednesday, January 10, 2018



Download the slides from today’s lecture.

First slide

Adjusting for inflation


Adjusting for inflation

\[ \text{Real GDP} = \frac{\text{Nominal GDP}}{\text{Price Index / 100}} \]

Measuring inequality with Gini coefficients

Calculating Gini coefficients with R is trivial with the ineq package—create a vector of incomes and feed it into ineq(). Here’s what you do for a fictional country with the following incomes:

Person Income
1 $10,000
2 $20,000
3 $50,000
4 $100,000
5 $200,000


## [1] 0.4842105

There are other types of inequality measures too. The default is Gini, but if you look at the documentation of ineq() with ?ineq, you can see the others.

You can plot the Lorenz curve easily too:

Alternatively you can extract the Lorenz curve that’s returned from Lc() and use ggplot2 to create a nicer plot:

Additional references to things brought up in class