empty_remove {iotables}

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

test_table <- input_coefficient_matrix_create(iotable_get(source = "germany_1995"))
test_table[, 2] <- 0
empty_remove (test_table)