---
title: "decompr"
author: "Bastiaan Quast"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{decompr}
  %\VignetteEngine{knitr::rmarkdown}
  \usepackage[utf8]{inputenc}
---


> "Hello...is it me you're looking for?"
([via](https://boptopop.files.wordpress.com/2011/03/l9kph.jpg))

## Loading data

We start by loading the package and the included example data set.

```{r}
library(decompr)
data(leather)
str(leather)
```

<!-- Listing the data objects included -->

<!-- ```{r} -->
<!-- ls() -->
<!-- ``` -->

<!-- Viewing each individual object -->

<!-- ```{r} -->
<!-- inter -->
<!-- final -->
<!-- countries -->
<!-- industries -->
<!-- out -->
<!-- ``` -->

## Leontief decomposition

```{r}
decomp(leather, method = "leontief")
```

## Koopman-Wang-Wei decomposition

```{r}
decomp(leather, method = "kww")
```

## Wang-Wei-Zhu decomposition

```{r}
decomp(leather, method = "wwz")
```