Load the library.
library(wiod)
Load the data.
data("wiot_1995")
Load the decompr
package.
library(decompr)
Apply the leontief
decomposition and save the output to an object l1995
.
l1995 <- decomp(wiot_1995$inter, wiot_1995$final, wiot_1995$countries, wiot_1995$industries, wiot_1995$output, method = "leontief" )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.