# NOT RUN {
#You need a table that has a total column and either the total
#intermediate use or final use
#This is usually the case with Eurostat tables, but with the Germany data
#file total must be added.
io_table <- iotable_get ()
io_table <- io_table [1:which(tolower(io_table[,1]) =="total" ), ]
output_bp <- dplyr::select ( io_table, output_bp )
io_table <- io_table [, 1:7]
io_table$total <- rowSums(io_table[, 2:7])
io_table <- cbind (io_table, output_bp)
output_coefficient_matrix_create ( io_table = io_table,
type = 'final_demand',
digits = 4 )
# }
Run the code above in your browser using DataLab