supplementary_add: Add supplementary data

In rOpenGov/iotables: Reproducible Input-Output Economics Analysis, Economic and Environmental Impact Assessment with Empirical Data

Add supplementary data

Description

Add supplementary data to a SIOT, a use, supply or margins table.

Usage

supplementary_add(data_table, supplementary_data, supplementary_names = NULL)

Arguments

data_table	A SIOT, a use table, a supply table, or a margins table.
supplementary_data	Supplementary data to be added. It must be a data.frame or tibble with a key column containing the indicator's name, and the column names must match with the data_table. Can be a vector or a data frame of several rows.
supplementary_names	Optional names for the new supplementary rows. Defaults to NULL.

Details

This function is a wrapper around the more general rows_add function.

Value

An extended data_table with the new row(s) binded.

A symmetric input-output table with supplementary data, of data.frame class. The column names are ordered, and the row names are in the first, auxiliary metadata column.

See Also

Other iotables processing functions: conforming_vector_create(), household_column_get(), iotable_year_get(), key_column_create(), matrix_round(), output_get(), primary_input_get(), rows_add(), total_tax_add(), vector_transpose_longer(), vector_transpose_wider()

Examples

de_io <- iotable_get()
CO2_coefficients <- data.frame(agriculture_group = 0.2379,
                               industry_group    = 0.5172, 
                               construction = 0.0456,
                               trade_group = 0.1320, 
                               business_services_group = 0.0127,
                               other_services_group = 0.0530)
CH4_coefficients <- data.frame(agriculture_group = 0.0349,
                               industry_group    = 0.0011, 
                               construction = 0,
                               trade_group = 0, 
                               business_services_group = 0,
                               other_services_group = 0.0021)
CO2 <- cbind (data.frame(iotables_row = "CO2"), 
              CO2_coefficients)
CH4 <- cbind(data.frame (iotables_row = "CH4_coefficients"),
             CH4_coefficients)
de_coeff <- input_coefficient_matrix_create ( iotable_get() )
emissions <- rbind (CO2, CH4)

# Check with the Eurostat Manual page 494:
supplementary_add(de_io, emissions)

rOpenGov/iotables documentation built on Jan. 26, 2024, 3:06 a.m.