Learn R Programming

iotables (version 0.9.4)

input_indicator_create: Create input indicator(s)

Description

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
)

Value

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

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".

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

Run this code
input_indicator_create(
  data_table = iotable_get(),
  input_row = c("gva", "compensation_employees"),
  digits = 4,
  indicator_names = c("GVA indicator", "Income indicator")
)

# Beutel/Eurostat example: GVA indicator (cf. Manual, ~p. 498)
ii <- input_indicator_create(
  data_table = iotable_get(),
  input_row = "gva",
  digits = 4
)
head(ii)

Run the code above in your browser using DataLab