rjdemetra icon indicating copy to clipboard operation
rjdemetra copied to clipboard

missing country in ipi_c_eu data set

Open merangelik opened this issue 4 years ago • 1 comments

It seems like Ireland is missing from your data set:

data(ipi_c_eu, package = "RJDemetra") dim(ipi_c_eu) [1] 360 34 colnames(ipi_c_eu) [1] "BE" "BG" "CZ" "DK" "DE" "EE" "EL" "ES" "FR" "HR" "IT" "CY" "LV" [14] "LT" "LU" "HU" "MT" "NL" "AT" "PL" "PT" "RO" "SI" "SK" "FI" "SE" [27] "UK" "NO" "CH" "ME" "MK" "RS" "TR" "BA" grep("IE", colnames(ipi_c_eu)) integer(0)`

merangelik avatar Dec 15 '20 11:12 merangelik

Indeed, it is the case since release 0.1.6: in the previous releases there was an error in the imported data. The series were calendar adjusted and not raw times series (neither seasonally adjusted nor calendar adjusted). Changing the type of data changed the times series imported and Ireland seems to be missing in the unadjusted data from Eurostat. Below the code used to download the data. If you need the data from Ireland maybe I can add the calendar adjusted data for this country?

# In RJDemetra <= 0.1.5
ipi_c_eu_ca <- eurostat::get_eurostat("sts_inpr_m",select_time = "M",
                                   filters = list(nace_r2="C",
                                                  unit = "I15", s_adj = "CA",
                                                  sinceTimePeriod = "1990M01"))
ipi_c_eu_ca <- reshape2::dcast(ipi_c_eu_ca, time ~ geo,  value.var = "values")
colnames(ipi_c_eu_ca)
#>  [1] "time"      "AT"        "BA"        "BE"        "BG"        "CH"       
#>  [7] "CY"        "CZ"        "DE"        "DK"        "EA19"      "EE"       
#> [13] "EL"        "ES"        "EU27_2020" "EU28"      "FI"        "FR"       
#> [19] "HR"        "HU"        "IE"        "IT"        "LT"        "LU"       
#> [25] "LV"        "ME"        "MK"        "MT"        "NL"        "NO"       
#> [31] "PL"        "PT"        "RO"        "RS"        "SE"        "SI"       
#> [37] "SK"        "TR"        "UK"

# Since RJDemetra 0.1.6
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")
colnames(ipi_c_eu)
#>  [1] "time" "AT"   "BA"   "BE"   "BG"   "CH"   "CY"   "CZ"   "DE"   "DK"  
#> [11] "EE"   "EL"   "ES"   "FI"   "FR"   "HR"   "HU"   "IT"   "LT"   "LU"  
#> [21] "LV"   "ME"   "MK"   "MT"   "NL"   "NO"   "PL"   "PT"   "RO"   "RS"  
#> [31] "SE"   "SI"   "SK"   "TR"   "UK"

AQLT avatar Dec 15 '20 13:12 AQLT