# NOT RUN {
# load the decompr package
library(decompr)
# load example data
data(leather)
attach(leather)
# create a leontief decomposed data set
l <- load_tables_vectors(x = inter,
                         y = final,
                         k = countries,
                         i = industries,
                         o = out        )
 
 # apply upstream
 upstream( l )
# }
Run the code above in your browser using DataLab