# A tiny 2x2 system with hand-calculable inverse
minimal_matrix <- data.frame(
sector = c("A", "B"),
A = c(0.2, 0.4),
B = c(0.1, 0.2)
)
leontief_inverse_create(minimal_matrix, digits = 3)
# With a full example from the package
tm <- input_flow_get(
data_table = iotable_get(),
households = FALSE
)
leontief_inverse_create(technology_coefficients_matrix = tm)
Run the code above in your browser using DataLab