Computes the necessary input data for the EC output gap estimation on the basis of AMECO data.
amecoData2input(tslAmeco, alpha = 0.65)
A list of time series containing the same components as the input list tslAmeco
and the following additional components:
Gross domestic product deflator
Total factor productivity
Labor force non-domestic (unit: 1000 persons)
Participation rate
Average hours worked (unit: hours)
Labor productivity (unit: real output in millions per person)
Terms of trade (pconcp / gdpdefl)
Wage share (unit: compensation per unit of nominal output)
Wage inflation
Real unit labor costs
A time series list or a multiple time series object containing AMECO data.
A number between 0
and 1
indicating the labor share. The
default is alpha = 0.65
.
The list of time series tslAmeco
needs to have the following components:
Population: 15 to 64 years (unit: 1000 persons, code: NPAN)
Unemployment rate, total; Member States: definition EUROSTAT (unit: Percentage of civilian labor force, code: ZUTN)
Employment, persons: total economy (National accounts) (unit: 1000 persons, code: NETN)
Employment, persons: all domestic industries (National accounts) (unit: 1000 persons, code: NETD)
Employees, persons: all domestic industries (National accounts) (unit: 1000 persons, code: NWTD)
Price deflator private final consumption expenditure (unit: National currency reference year = 100, code: PCPH)
Gross domestic product at current prices (unit: bn National currency, code: UVGD)
Gross domestic product at constant prices (unit: bn National currency, code: OVGD)
Total annual hours worked: total economy (unit: millions, code: NLHT)
Compensation of employees: total economy (unit: bn National currency, code: UWCD)
Nominal unit labour costs: total economy (Ratio of compensation per employee to real GDP per person employed.) (unit: National currency reference year = 100, code: PLCD)
Net capital stock at constant prices: total economy (unit: bn National currency, code: OKND)
# load data for Germany
data("gap")
country <- "Germany"
tsListRaw <- gap[[country]]
tsListInput <- amecoData2input(tslAmeco = tsListRaw)
Run the code above in your browser using DataLab