# Load example data and create a 'decompr' object
data(leather)
dec <- load_tables_vectors(leather)
# Country-level decomposition (exporter perspective, source approach; 13 terms)
bm(dec)
# Country-level "corrected KWW" (world perspective, sink approach; 9 terms)
bm(dec, perspective = "world", approach = "sink")
# Sector- and bilateral-sector-level decompositions
bm(dec, aggregation = "sector")
bm(dec, aggregation = "bilateral")
Run the code above in your browser using DataLab