data(wiod95)
library(decompr)
w95 <- decomp(inter95,
final95,
countries,
industries,
output95,
method="leontief")
library(gvc)
i2e95 <- i2e(w95)
Run the code above in your browser using DataLab