Load the library.

library(wiod)

Load the data.

data("wiod95")

Load the decompr package.

library(decompr)
## If you use decompr for data analysis,
## please cite both R and decompr,
## using citation() and citation("decompr") respectively.

Apply the leontief decomposition and save the output to an object l1995.

l1995 <- decomp(inter95,
                final95,
                countries,
                industries,
                output95,
                method = "leontief" )