iotables (version 0.3.4)

use_table_get: Create a use (input flow) matrix

Description

Select the use table from a symmetric input-output table.

Usage

use_table_get(labelled_io_table = NULL, source = "germany_1990",
  geo = "DE", year = 1990, unit = "MIO_EUR", stk_flow = "DOM",
  households = FALSE, keep_total = FALSE, labelling = "iotables")

Arguments

labelled_io_table

If you have created the IO table earlier with iotable_get, it is faster to work with the data in the memory. Defaults to NULL when the data will be retrieved from the hard disk or from the Eurostat website invoking iotables_download and iotable_get.

source

A data source, for example "naio_10_cp1700". Possible codes are "naio_10_cp1700", "naio_10_cp1750", "naio_10_pyp1700", "naio_10_pyp1750", "naio_cp17_r2", "naio_17_agg_60_r2", "naio_17_agg_10_r2", "croatia_2010_1700", "croatia_2010_1800", "croatia_2010_1900". For further information consult the Eurostat Symmetric Input-Output Tables page.

geo

A country code, for example, SK.

year

A numeric variable containing the year. Defaults to 2010, because this year has the most data.

unit

A character string containing the currency unit, defaults to MIO_NAC (million national currency unit). The alternative is MIO_EUR.

stk_flow

Defaults to DOM, alternative IMP.

households

If you need to make household demand endogenous, or "close the households off", TRUE selects wages and final household consumption. This is needed for induced-effects calculations.

keep_total

Logical variable. Defaults to FALSE and removes the totalling row and column from the matrix.

labelling

Defaults to iotables which gives standard row and column names regardless of the source of the table, or if it is a product x product, industry x industry or product x industry table. The alternative is short which is the original short row or column code of Eurostat or OECD.

Examples

# NOT RUN {
use_de <- use_table_get( source = "germany_1990", geo = 'DE', year = 1990,
                       unit = "MIO_EUR", labelling  = 'iotables')
# }
# NOT RUN {
use_table <-  iotables_download ( "naio_10_cp1700" ) %>%
 iotable_get (labelled_io_data = ., geo = "PL", 
              source = "naio_10_cp1700",
              year = 2010, unit = "MIO_EUR", 
              labelling = "short") %>%
 use_table_get ( labelled_io_table = .)
 
# }