iotables (version 0.4.7)

empty_remove: Symmetrically remove empty rows and columns

Description

Symmetrically remove columns with only zero values or with missing values.

Usage

empty_remove(data_table)

Arguments

data_table

A symmetric input-output table, or a symmetric part of a use table or a supply table.

Value

A tibble/data.frame with a key row and a symmetric matrix, after removing all empty columns and rows at the same time.

Examples

# NOT RUN {
test_table <- input_coefficient_matrix_create(iotable_get(source = "germany_1990"))
test_table[, 2] <- 0
empty_remove (test_table)
# }