/
ipi_c_eu.R
66 lines (64 loc) · 4.06 KB
/
ipi_c_eu.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#' Industrial Production Indices in manufacturing in the European Union
#'
#' A dataset containing on monthly industrial production indices in manufacturing in the European Union (from sts_inpr_m dataset of Eurostat). Data are based 100 in 2015 and are unadjusted, i.e. neither seasonally adjusted nor calendar adjusted.
#'
#' The dataset contains 34 time series corresponding to the following geographical area
#' \tabular{cl}{
#' BE \tab Belgium \cr
#' BG \tab Bulgaria \cr
#' CZ \tab Czechia \cr
#' DK \tab Denmark \cr
#' DE \tab Germany (until 1990 former territory of the FRG)\cr
#' EE \tab Estonia \cr
#' IE \tab Ireland \cr
#' EL \tab Greece \cr
#' ES \tab Spain \cr
#' FR \tab France \cr
#' HR \tab Croatia \cr
#' IT \tab Italy \cr
#' CY \tab Cyprus \cr
#' LV \tab Latvia \cr
#' LT \tab Lithuania \cr
#' LU \tab Luxembourg \cr
#' HU \tab Hungary \cr
#' MT \tab Malta \cr
#' NL \tab Netherlands \cr
#' AT \tab Austria \cr
#' PL \tab Poland \cr
#' PT \tab Portugal \cr
#' RO \tab Romania \cr
#' SI \tab Slovenia \cr
#' SK \tab Slovakia \cr
#' FI \tab Finland \cr
#' SE \tab Sweden \cr
#' UK \tab United Kingdom \cr
#' NO \tab Norway \cr
#' CH \tab Switzerland \cr
#' ME \tab Montenegro \cr
#' MK \tab Former Yugoslav Republic of Macedonia, the \cr
#' RS \tab Serbia \cr
#' TR \tab Turkey \cr
#' BA \tab Bosnia and Herzegovina
#' }
#' @docType data
#' @format A monthly \code{ts} object from january 1990 to december 2017 with 34 variables for \code{ipi_c_eu} and a \code{data.frame} for \code{ipi_c_eu_df}.
#' @source Eurostat, 'sts_inpr_m' database.
"ipi_c_eu"
#' @rdname ipi_c_eu
"ipi_c_eu_df"
# # To update data:
# ipi_c_eu <- eurostat::get_eurostat("sts_inpr_m",select_time = "M",
# filters = list(nace_r2="C",
# unit = "I15", s_adj = "NSA",
# sinceTimePeriod = "1990M01"))
# ipi_c_eu <- reshape2::dcast(ipi_c_eu, time ~ geo, value.var = "values")
# ipi_c_eu <- ts(ipi_c_eu[, c("BE", "BG", "CZ", "DK", "DE",
# "EE", "EL", "ES", "FR", "HR", "IT", "CY", "LV", "LT", "LU",
# "HU", "MT", "NL", "AT", "PL", "PT", "RO", "SI", "SK", "FI", "SE",
# "UK", "NO", "CH", "ME", "MK", "RS", "TR", "BA")],
# start = c(1990, 1), frequency = 12)
# # # Last date is removed due to NA:
# # ipi_c_eu <- window(ipi_c_eu, end = tail(time(ipi_c_eu),1) - 1/12)
# ipi_c_eu_df <- ts2df(ipi_c_eu)
# save(ipi_c_eu,file = "data/ipi_c_eu.rda", version = 2)
# save(ipi_c_eu_df,file = "data/ipi_c_eu_df.rda", version = 2)