The Leontief decomposition of gross flows (exports, final demand, output) into their value added origins.
leontief(x, post = c("exports", "output", "final_demand", "none"), long = TRUE)
an object of class decompr.
post-multiply the value added multiplier matrix ["exports"
"output"
.
Option "final_demand"
computes value added origins of final demand by source country-industry and importing country, by computing
x
. Option "none"
just returns
logical. Transform the output data into a long (tidy) data set or not, default is TRUE
.
If long = TRUE
a molten data frame containing the elements of the decomposed flows matrix in the final column, preceded by several identifier columns.
If long = FALSE
the decomposed flows matrix is simply returned.
The Leontief decomposition is obtained by pre-multiplying the flow measure (e.g. exports) with
the value added multiplier matrix [
diag(v / o)
where o
is total industry output. v
is either supplied to load_tables_vectors
or computed as o - colSums(x)
with x
the raw IO matrix.
If o
is not supplied to load_tables_vectors
, it is computed as rowSums(x) + rowSums(y)
where y
is the matrix of final demands. If both o
and v
are not supplied to load_tables_vectors
, this is equivalent to computing diag(1 - colSums(A))
, with
Leontief, W. (Ed.). (1986). Input-output economics. Oxford University Press.
Hummels, D., Ishii, J., & Yi, K. M. (2001). The nature and growth of vertical specialization in world trade. Journal of international Economics, 54(1), 75-96.
Wang, Zhi, Shang-Jin Wei, and Kunfu Zhu (2013). Quantifying international production sharing at the bilateral and sector levels (No. w19677). National Bureau of Economic Research.
# NOT RUN {
# Load example data
data(leather)
# Create intermediate object (class 'decompr')
decompr_object <- load_tables_vectors(leather)
# Perform the Leontief decomposition of each country-industries
# exports into their value added origins by country-industry
leontief(decompr_object)
# }
Run the code above in your browser using DataLab