# NOT RUN {
de_use <- use_table_get ( source = "germany_1990", geo = "DE",
year = 1990, unit = "MIO_EUR",
households = FALSE, labelling = "iotables")
de_output <- output_get ( source = "germany_1990", geo = "DE",
year = 1990, unit = "MIO_EUR",
households = FALSE, labelling = "iotables")
de_emp <- primary_input_get ( input = "employment_total",
source = "germany_1990", geo = "DE",
year = 1990,
households = FALSE, labelling = "iotables")
de_emp_indicator <- input_indicator_create (de_emp, de_output)
de_coeff <- input_coefficient_matrix_create( de_use,
de_output, digits = 4)
L_de <- leontieff_matrix_create( technology_coefficients_matrix =
de_coeff )
I_de <- leontieff_inverse_create(L_de)
employment_multipliers <- multiplier_create (
input_vector = de_emp_indicator,
Im = I_de,
multiplier_name = "employment_multiplier",
digits = 4 )
# }
Run the code above in your browser using DataLab