# NOT RUN {
data_table <- iotable_get()
coeff_de <- input_coefficient_matrix_create( data_table )
de_gva_indicator <- input_indicator_create (
data_table = data_table,
input = 'gva') #this is a correct input
I_de <- leontieff_inverse_create( coeff_de )
de_gva_multipliers <- multiplier_create (
input_vector = de_gva_indicator,
Im = I_de,
multiplier_name = "employment_multiplier",
digits = 4 )
# }
Run the code above in your browser using DataLab