# 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_coeff <- input_coefficient_matrix_create( de_use, de_output, digits = 4)
L <- iotables::leontieff_matrix_create( technology_coefficients_matrix = de_coeff )
# }
Run the code above in your browser using DataLab