## -----------------------------------------------------------------------------
# load the decompr package
library(decompr)

## -----------------------------------------------------------------------------
# load the example data set
data(leather)
attach(leather)

## -----------------------------------------------------------------------------
l <- decomp(x = inter,
            y = final,
            k = countries,
            i = industries,
            o = out,
            method = "leontief",
            post = "exports"    )

## -----------------------------------------------------------------------------
library(gvc)

## -----------------------------------------------------------------------------
nrca(l)

## -----------------------------------------------------------------------------
i2e(l)