Skip to contents

Create input indicator(s)

Source: R/input_indicator_create.R
input_indicator_create.Rd

Compute input indicators (e.g., GVA, compensation of employees) by selecting specific input rows from the input-coefficient matrix.

Usage

input_indicator_create(
  data_table,
  input_row = c("gva_bp", "net_tax_production"),
  digits = NULL,
  households = FALSE,
  indicator_names = NULL
)

Arguments

data_table

A symmetric input–output table, use table, margins, or tax table retrieved by iotable_get().

input_row

Character vector of input row names to extract (e.g., "gva", "compensation_employees"). Matching is case-insensitive.

digits

Integer number of decimal places for rounding. Default NULL (no rounding).

households

Logical; include a households column if available. Default FALSE.

indicator_names

Optional character vector of names for the returned indicators. If NULL, names are taken from the key column in the selected rows of the coefficient matrix and suffixed with "_indicator".

Value

A data.frame whose first column is a key, followed by the selected input-indicator rows as numeric columns.

Details

Let \(A\) be the input-coefficient matrix (rows are inputs, columns are products/industries). An input indicator for a given input row \(r\) is simply the row \(A_{r\cdot}\). These indicators are used in Beutel (2012) and the Eurostat Manual of Supply, Use and Input-Output Tables (e.g., pp. 495–498) to derive effects and multipliers.

Internally, the function builds \(A\) via coefficient_matrix_create(), then keeps only the requested input rows and renames the key column to *_indicator. Optional rounding is applied to numeric columns.

See also

Other indicator functions: coefficient_matrix_create(), direct_effects_create()

Examples

input_indicator_create(
  data_table = iotable_get(),
  input_row = c("gva", "compensation_employees"),
  digits = 4,
  indicator_names = c("GVA indicator", "Income indicator")
)
#>        iotables_row agriculture_group industry_group construction trade_group
#> 10    GVA indicator            0.2137         0.2746       0.3209      0.3971
#> 14 Income indicator            0.4934         0.3659       0.4708      0.5766
#>    business_services_group other_services_group
#> 10                  0.1802               0.5364
#> 14                  0.5999               0.7172

# Beutel/Eurostat example: GVA indicator (cf. Manual, ~p. 498)
ii <- input_indicator_create(
  data_table = iotable_get(),
  input_row = "gva",
  digits = 4
)
head(ii)
#>     iotables_row agriculture_group industry_group construction trade_group
#> 14 gva_indicator            0.4934         0.3659       0.4708      0.5766
#>    business_services_group other_services_group
#> 14                  0.5999               0.7172