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