# NOT RUN {
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_create ( io_table )
# }
Run the code above in your browser using DataLab