Skip to contents

Create multipliers

Source: R/multiplier_create.R
multiplier_create.Rd

Wrapper around equation_solve() that computes total multipliers by post-multiplying an input indicator vector with a Leontief inverse and adds a key column carrying the multiplier name for consistent joins.

Usage

multiplier_create(
  input_vector,
  Im,
  multiplier_name = "multiplier",
  digits = NULL
)

Arguments

input_vector

A named numeric vector (or 1-column matrix) created by input_indicator_create() whose names match the ordering of the Leontief inverse columns.

Im

A Leontief inverse matrix created by leontief_inverse_create(). Column names must correspond to products or industries consistent with input_vector.

multiplier_name

A string used for the key column that labels the returned multipliers. Default is "multiplier".

digits

Optional integer. If supplied and non-negative, round the resulting multipliers to this number of decimal places. Negative values are ignored (no rounding).

Value

A data frame with:

  • a first key column (character) named as the first column of input_vector and filled with multiplier_name, and

  • one numeric column per product/industry containing the multipliers.

Details

In the Eurostat IO framework, multipliers measure total effects per unit of final demand, by product or industry (via the Leontief inverse \((I - A)^{-1}\)). This contrasts with direct effects, which reflect only the immediate (first-round) impact.

The function delegates the numerical solve to equation_solve() and then formats the result for tidy joining with other IO tables. Ensure that the dimension ordering and names of input_vector and Im correspond; otherwise results will be misaligned.

See also

equation_solve(), input_indicator_create(), leontief_inverse_create()

Other multiplier functions: input_multipliers_create(), output_multiplier_create()

Examples

# Minimal workflow -----------------------------------------------
data_table <- iotable_get()

coeff_de <- input_coefficient_matrix_create(data_table)

de_gva_indicator <- input_indicator_create(
  data_table = data_table,
  input = "gva"
)

I_de <- leontief_inverse_create(coeff_de)

de_gva_multipliers <- multiplier_create(
  input_vector = de_gva_indicator,
  Im = I_de,
  multiplier_name = "employment_multiplier",
  digits = 4
)