Learn R Programming

gravity (version 0.5)

Gravity: Gravity dataset

Description

An edited version of the full gravity dataset: The "square" gravity dataset for all possible pairs of Countries worldwide, 1948-2006, which is used in the article: Head, K., T. Mayer and J. Ries, 2010, "The erosion of colonial linkages after independence". Journal of International Economics, 81(1):1-14 (lead article).

Usage

data(Gravity)

Arguments

Format

A data frame with 17088 rows and 10 variables:

iso_o

ISO-Code of country of origin

iso_d

ISO-Code of country of destination

distw

weighted distance

gdp_o

GDP of country of origin

gdp_d

GDP of country of destination

rta

regional trade agreement

flow

trade flow

contig

contiguity

comlang_off

common official language

comcur

common currency

Details

An edited version of the full gravity dataset: The "square" gravity dataset for all possible pairs of Countries worldwide, 1948-2006, which is used in the article: Head, K., T. Mayer and J. Ries, 2010, "The erosion of colonial linkages after independence". Journal of International Economics, 81(1):1-14 (lead article).

In order to have a dataset suited for all functions, a cross-sectional dataset is chosen. All incomplete rows and observations with missing trade flows are therefore excluded from the dataset. Trade flows equal to zero are excluded as not all functions are capable of estimating gravity equations in the presence of zero trade flows.

The original dataset downloaded at http://econ.sciences-po.fr/sites/default/files/file/tmayer/data/col_regfile09.zip was edited in the following way:

# Reading in the dataset

library(foreign)

col_regfile09 <- read.dta("col_regfile09.dta")

# Isolation of one year

data06 <- col_regfile09[col_regfile09$year == 2006,]

# Choosing variables (select columns)

data06 <- data06[,c(2, 3, 6, 8, 12, 27, 34, 4, 5, 29)]

# Transforming data

# Isolation of complete cases

data06 <- data06[complete.cases(data06) == TRUE,]

# Exclusion of trade flows equal to 0

Gravity <- data06[data06$flow != 0,]

row.names(Gravity) <- 1:length(row.names(Gravity))

# Divide GDPs by 1,000,000 for scaling purposes

Gravity$gdp_o <- Gravity$gdp_o / 1000000

Gravity$gdp_d <- Gravity$gdp_d / 1000000

References

Head, K. and Mayer, T. (2014). Chapter 3 - gravity equations: Workhorse,toolkit, and cookbook. In Gita Gopinath, E. H. and Rogoff, K., editors, Handbook of International Economics, volume 4 of Handbook of International Economics, pages 131-195. Elsevier. (Gravity Equations: Workhorse, Toolkit, and Cookbook)

Head, K., T. Mayer and J. Ries, 2010, "The erosion od colonial linkages after independence". Journal of International Economics, 81(1):1-14 (lead article).