# NOT RUN {
# load example data
data(leather)
# create intermediate object (class decompr)
decompr_object <- load_tables_vectors(inter,
final,
countries,
industries,
out)
# examine output object
str(decompr_object)
# }
Run the code above in your browser using DataCamp Workspace