# NOT RUN {
## load example data
data(leather)
## create intermediate object (class decompr)
decompr_object <- load_tables_vectors(inter,
final,
countries,
industries,
out )
## run the Leontief decomposition on the decompr object
leontief(decompr_object )
# }
Run the code above in your browser using DataLab