ioanalysis (version 0.3.4)

vs: Vertical Specialization

Description

Calculates the vertical specialization share of total exports of each sector as described by Hummels et al. (2001), equation 3. Creates a value between zero and one to indicate relative specialization. For each region, a Leontief inverse is calculated. You need a multi-region input-output dataset for vs to be relevant.

Caution: Inverting large matrices will take a long time. Each individual hypothetical extraction requires the inversion of a matrix. R does a computation roughly every 8e-10 second. The number of computations per matrix inversion is n^3 where n is the dimension of the square matrix. For n = 5000 it should take 100 seconds.

Usage

vs(io, ES, regions = "all", sectors = "all")

Arguments

io

An InputOutput class object from as.inputoutput

ES

An EasySelect class object from easy.select to specify which region and sector combinations to use.

regions

Character or Integer. Specific regions to be used. Can either be a character that exactly matches the name of the region in RS_label or the number of the region in the order it appears in RS_label.

sectors

Character or Integer. Specific sectors to be used. Can either be a character that exactly matches the name of the sector in RS_label or the number of the sector in the order it RS_label.

Value

Creates a region list of vs share of total exports.

Details

The vertical specialization share of total exports is calculated as follows: $$ \frac{vs_r}{X_r^{total}} = \frac{1}{X_r^{total}} A^M_r L_r X_r $$ where \(X_r^{total}\) is the total exports for region r, \(A^M_r\) is the matrix of technical import coefficients, \(L_r\) is the domestic Leontief inverse calculated from the domestic matrix of technical coefficients i.e. \(A_{rr}\) not the full \(A\) matrix, and \(X_r\) is the vector of total exports.

References

Hummels, David & Ishii, Jun & Yi, Kei-Mu, 2001. The nature and growth of vertical specialization in world trade. Journal of International Economics, Elsevier, vol. 54(1), pages 75-96, June.

See Also

import.coef, export.total, check.RS, leontief.inv

Examples

# NOT RUN {
data(toy.IO)
class(toy.IO)
(vs1 <- vs(toy.IO, regions = "all"))
vs1$Hogwarts
sum(vs1$Hogwarts)

data(toy.ES)
class(toy.ES)
vs2 <- vs(toy.IO, toy.ES)
vs2
# }