# NOT RUN {
de_use <- use_table_get()
L_de <- leontieff_matrix_create( de_use )
I_de <- leontieff_inverse_create( L_de )
io_table <- iotable_get ()
#Total column should not be missing
io_table <- io_table [, 1:7]
io_table$total <- rowSums(io_table[, 2:7])
labelled_io_table <- io_table
direct_effects_de <- direct_effects_create ( io_table )
multipliers <- input_multipliers_create(
direct_effects = direct_effects_de [, -8],
inverse = I_de,
labelled = TRUE)
# }
Run the code above in your browser using DataLab