## -----------------------------------------------------------------------------
library(decompr)
data(leather)
str(leather)

## -----------------------------------------------------------------------------
decomp(leather, method = "leontief")

## -----------------------------------------------------------------------------
decomp(leather, method = "kww")

## -----------------------------------------------------------------------------
decomp(leather, method = "wwz")