Create an input coefficient matrix — input_coefficient_matrix

Create an input coefficient matrix from the input flow matrix and the output vector. This is a thin wrapper around coefficient_matrix_create(), with total = "output" and return_part = "products".

Usage

input_coefficient_matrix_create(data_table, households = FALSE, digits = NULL)

Arguments

data_table: A symmetric input–output table, a use table, or margins/tax table retrieved by iotable_get().
households: Logical; include the households column if available. Default FALSE.
digits: Optional integer precision to round the resulting matrix. Default NULL (no rounding).

Value

A data.frame containing the input coefficient matrix (products × products), with the key (row label) retained as the first column. Any TOTAL rows/columns ("cpa_total", "total") are removed.

Details

The input coefficients of production activities may be interpreted as the corresponding cost shares for products and primary inputs in total output. Our terminology follows the Eurostat Manual of Supply, Use and Input–Output Tables. In some sources this is called the technological coefficients matrix.

Examples

cm <- input_coefficient_matrix_create(
  iotable_get(source = "germany_1995"),
  digits = 4
)
head(cm)
#>              iotables_row agriculture_group industry_group construction
#> 1       agriculture_group            0.0258         0.0236       0.0000
#> 2          industry_group            0.1806         0.2822       0.2613
#> 3            construction            0.0097         0.0068       0.0158
#> 4             trade_group            0.0811         0.0674       0.0578
#> 5 business_services_group            0.0828         0.0890       0.1263
#> 6    other_services_group            0.0353         0.0139       0.0071
#>   trade_group business_services_group other_services_group
#> 1      0.0011                  0.0010               0.0015
#> 2      0.0761                  0.0173               0.0597
#> 3      0.0098                  0.0339               0.0180
#> 4      0.1378                  0.0156               0.0413
#> 5      0.1218                  0.2790               0.0672
#> 6      0.0208                  0.0217               0.0434

# Equivalent direct call:
cm2 <- coefficient_matrix_create(
  iotable_get(source = "germany_1995"),
  total = "output",
  return_part = "products",
  digits = 4
)